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Introducing ProtoGen+. Visual tools with the most awesome 
workbench ever created for Windows development. 


lie future has arrived—a complete 
point-and-click, WYSIWYG 
workbench that lets you create 
dazzling applications without 
writing a line of code. 


Discover the ease and 
productivity of visual 
development! 


Paint your 
screens. Design 
a menu and link 


screens togeth¬ 
er. Test the flow 
in a live environ¬ 
ment, and gen¬ 
erate code for 
ANSI C, C++ 
for OWL or MFC 
or Pascal with 
objects. It's that 
easy. 

And this 

open! ProtoGen+ 
will work with 
your database, 
compiler, 
libraries and extensions. Powerful 


Visually 

develop 

screens 



Create a menu 
and connect 
screens & dialogs 



Test the applica¬ 
tion's screen flow in 
a live environment 



Instantly generate 
source code in 
Pascal, C or C++ 


add-on features, like SQLView offer 





Bring your applications to life using the latest 
visual design tools! 


workbench access to multiple 
databases to develop client/server and 
xBase applications. Snap-in compo¬ 
nents make ProtoGen+ open to future 
development technologies—whatever 
they may be. 

ProtoGen+ is easy to learn, 
speeds your development cycle and 
protects your investment by generat¬ 
ing C,C++ and Pascal. We guarantee 
you’ll 
prototype 
and generate 
exciting 
applications 
faster than 


The most powerful, open set of 
Visual Development Tools ever! 
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Point-and-click to paint 
screens with bitmaps, 
icons, tables, data valida¬ 
tion, custom colors, fonts, 
3D effects, visual tool¬ 
bars, status lines, balloon 
help. MDI and more! 


you ever 

thought 

possible! 


% 


PKQTQVieW 

The Visual Development Edge™ 

All products named are trademarks of their 
respective companies. ©1993 ProtoView Development 


Build win¬ 
dows, forms, 
dialog boxes, 
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Quickly 
create a 
menu using 
templates 

Data valida¬ 
tion, 3-D 
effects, MDI 
and more 

Rich library 
of visual 
control 
objects 
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Code 

Generators 
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License our technology to 
create new code generators 


Fasten your seatbelt 
for ProtoGen+! 


Only 


(list price 
$395) 


$199 

1 - 800 - 231-8588 

Ask for Ext. 60 
In NJ, call (908) 329-8588 
ProtoGen+'s SQLView access to multiple 
databases Is available at an additional price; 
ask about it when you call. 
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Declare Your DBMS Independence 

New ! Q + E Database Library 2 



Use Q+E Database Library to 
develop powerful client server 
applications that work with 
all major databases. 

Q+E Database Library 
eliminates the complex details 
of accessing and manipulating 
data from multiple data sources. 


CODE ONCE 

Put world-class applications in 
your user's hands quickly by 
writing code once to access all 
major databases. In record 
time, you can build an 
application that accesses 
Oracle, dBASE, SQL Server, 
Paradox, DB2, or any other 
database. You can even prototype 
and test with one DBMS and 
deliver against another. 


OdbcAndIdapi 

Q+E Database Library's high- 
level API allows you to create 
ODBC-compliant applications 
in a fraction of the time it 
takes with the ODBC SDK. 
Future releases of 
Q+E Database Library' will 
automatically make 
these same applications 
IDAPI-compatible. Why risk 
making the wrong choice 
between competing standards? 
Use Q+E Database Library' 
and instantly get support for 
both ODBC and IDAPI. 


Proven Technology 

Employ the same technology 
used by Microsoft, Lotus, 
WordPerfect, Computer 
Associates, Borland, and IBM 
to create their DBMS- 
independent applications. 
Don't take chances. Use the 
industry's leading market- 
proven technology. 

CAL/ 

800 - 876-3101 

Order Q+E Database Library' 
today and discover the best 
way to develop DBMS- 
independent client server 
applications. If after 30 day's 
you don't love it, return it for 
a no-hassles refund. 

»$699 

Q+E Database Library 2 applications can be 
distributed royalty free. Distribution licenses are 
required for distribution of the Q+E database drivers. 
*Q+E Database Library Version 2 is available for 
Windows today and will support OS/2, Macintosh, 
Windows NT, and UNIX bv the first quarter of 1994. 


High-level API Eliminotes the complex details 
of accessing and manipulating 
dote from multiple data 

_ _ sources 

Includes Over 20 Drivers Btrieve, DB2t, 082/2, 
dBASE, Excel, 

HPAILBASE /SQL, 

HP IMAGE/SQL, INFORMIX, 
INGRES, Microsoft SQL Server, 
NetWore SQL, Orode, 

Paradox, PROGRESS, 

SQL Base, SQL/4001, 
SQL/DSt, 


Sybase SQL Server, 
Terodotat, XDB 8 Text 
ft requires sa/emy ) 


ODBC Compliance 

Enables ODBC application 
development 

Cross Platform 

Windows, Macintosh, UNIX, 
05/2, Windows NT 

Q+E Query Builder 

Allows users of your 
application to creole complex 
SQL statements without 
knowinq SQl 

Conversion Routines 

Conversion between different 
DBMS data types 

Dato Dictionary 

Common data dictionary 
functions for all DBMS 

Find Functions 

QBE 

Automates look-ups 

Easily create Query by 

Example applications 


All Development Tools 

Don't throw away your 
existing development 
environment just to gain 
DBMS independence. 

Q+E Database Library works 
with the tools you already 
have. It works with the macro, 
script, or programming 
language of any application or 
development tool, including 
C, COBOL, Pascal and 
Visual Basic. 


Cross Platform 

Get consistent DBMS access 
across all major operating 
systems*. With Q+E Database 
Library, your ODBC-compliant 
applications will run on all 
platforms--even those where 
ODBC is not yet supported. 


Get The Job Done 

Q+E Database Library comes 
with a complete set of database 
tools to help you get your job 
done faster. 


5540 Centerview Drive • Suite 324 
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Fax 919 859-9334 • 800 876-3101 
In Europe: 

P.0. Box 84.034 • 3009 CA • Rotterdam, The Netherlands 
(31) 10 2202 022 • Fax (31) 10 4563 348 


© 1993 Q+E Software. Q+E is a registered trademark of Q+E Software. 
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A Soundex Function for Microsoft Access.6 

The Russell Soundex algorithm helps solve the common problem of locating possibly 
misspelled names. This is useful, for example, when searching customer databases for a 
particular customer. This article provides an implementation of the Soundex algorithm for 
Microsoft Access. 

Paul Litwin 

Introduction to ODBC Driver Development. 29 

Microsoft’s Open Database Connectivity (ODBC) specification promises one solution to the 
problem of writing database-independent applications. This promise comes at the cost of 
complexity for ODBC drivers, some of which must contain complete SQL engines. This ar¬ 
ticle looks at the problems of designing ODBC drivers for existing DBMSs. 

Mike Satterfield 


Features 


Direct Windows Graphics from MS-Fortran v5.1 . 13 

Microsoft's QuickWin package lets FORTRAN programmers create Windows programs 
without dealing with the complexity of the Windows API. The price of this simplicity is speed 
and functionality. This article shows how to call the Windows API directly to achieve faster 
graphics. 

Kenneth G. Hamilton 

A More Flexible MessageBox() .. 57 

When you need to display an error or information message, MessageBox () is the handiest 
Windows API function to reach for - it has become the Windows equivalent of a “print" state¬ 
ment. Unfortunately, every call to MessageBoxQ with a hard-coded string is another problem 
when you need to localize all strings to a new foreign language. Here’s a complete replace¬ 
ment for Mes sageBox () that makes it easy to use string resources for such messages without 
being bound by their 255-character limit. 

Moshe Rubin 

Three Tips for Faster Graphics . 63 

Windows has never been a speed demon when it comes to graphics, but you can take some 
steps to avoid its most sluggish areas. The only way to know for sure which techniques are 
faster, however, is to measure. This article provides the benchmarks to show you what’s fast 
and what's not. 

Paul Bonneau 
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Spending too 
much time in 
ports? 


v 


Find what you need in your code! 

You port code to new languages or 
platforms and maintain critical legacy 
code. You could spend hours slogging 
though printouts trying to figure out 
where a function is called, or tracking 
down that elusive variable assignment. 
Or you could use Source Print+ and 
organize your code to feature exactly 
the information you need! Use Source 
Print+’s exclusive multi-file cross 
reference and generate a single 
comprehensive index that details not 
just where, but how all identifiers, 
variables and functions are used in all 
the files in your project. Or create a 
function call tree diagram that 
graphically details what each function 
in your program does. Source Print+ 
helps you get every iota of information 
from existing source code. 


Organize your code for reuse! 

What good is object-oriented code if you 
can’t disentangle it and use it again? 
Use Source Print+ to extract a single 
function from a huge source file, and 
save it to a file or send it to your 
printer. Add Powerline’s Source Control 
to your system and you are efficiently 
creating version control archives to 
build new software enterprises! 

Freedom to code your own way! 

When you use Source Print+ on new 
code, especially as a part of a 
development team, there's no need to 
worry about finding a particular style 
that suits everyone. Install multi-user 
Source Print+ on your network and run 
your "code complete" through the 
formatter before passing it along to your 
boss! And when you need to review 
someone else’s code, just format it the 
way that you find easiest to work with. 


The original is still the best 

Source Print+ has been around since 
1986. It’s made the same transitions 
that you have in terms of "popular" 
languages. It can easily handle the 
code you wrote in BASIC five years ago 
and the code your are writing in C++ 
now. In fact. Source Print+ supports C, 
C++, BASIC. xBase, FoxPro, Clipper, 
Pascal, FORTRAN, and Modula-2 in 
one package; we are contstantly 
updating support for all of them. You 
also get both DOS and Windows 
versions in one package so whether you 
are a hardcore DOS programmer or a 
cutting-edge Windows developer you 
can use Source Print+ to get a handle on 
your code. 


SOURCE PRINT+ 


1 - 800 - 257-5773 
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From 

the Editor 


After spending 20 years and millions of dollars trying to convince people to car 
pool, California has made little progress. 75 percent of travel in the state still occurs 
in single-occupant vehicles. The California Department of Transportation (Caltrans) has 
a new idea. They are building a sporty one-person car that gets 80 miles per gallon 
and is only 4 feet wide, narrow enough to put two within a standard 12-foot high¬ 
way lane. If such mini-cars became successful, California could nearly double its 
highway capacity for the cost of an extra stripe of paint. 

Caltrans’ radical idea for a solo commuter car is based on a rather simple obser¬ 
vation: people don’t like to car pool. There’s absolutely no physical reason why 
California citizens could not share their rides and greatly reduce their commuting 
times, but the fact is they don’t do it. For designers of mass transit, software, or 
most anything, it’s all too easy to ignore what people don’t like to do. The major 
application vendors now perform usability testing to avoid the mistake of ignoring 
what people like and don’t like. Unfortunately, few vendors devote the same re¬ 
search to building tools for programmers. 

As an example, the Windows API forces programmers to manage a number of 
different types of resources using a variety of confusing rules (what resources does 
DestroyWindow() free up implicitly?), and Windows does not protect itself well 
against failure to free up allocated resources. This design flaw only became a priority 
for Microsoft when it realized that resource mismanagement contributed to 
Windows’ growing reputation for instability. Microsoft's Windows debugging kernel 
offered a legitimate solution, a way to discover that your application was failing to 
free up resources. The problem is, lots of programmers don't like to use the debug¬ 
ging kernel; it slows things down and provides minimal information in a cryptic 
format. Along came BOUNDS-CHECKER for Windows, which, like the debugging kernel, 
can detect resource mismanagement but, unlike the debugging kernel, can often 
show you the exact line of source code that caused the problem. Suddenly, 
programmers are more likely to ship Windows applications that manage resources 
correctly, even though there was no strictly technical reason why they could not 
have done so just using the debugging kernel. 

As the PC software industry continues to mature, software standards keep rising. 
In the early days, users might reasonably have expected to have to call technical 
support for help in installing a product, and they might have been happy if 80 percent 
of the promised features seemed to work roughly as promised. These days, you 
better deliver everything promised, and the battle between applications is mostly in 
the details. Studying what users don't like to do is one way to discover how to make 
a product more successful. Hopefully, more programming tools vendors will take that 
approach to give the products we use the same kinds of human design innovations 
that users of spreadsheets and word processors are starting to enjoy. 

Ron Burk 

'ft-***' — 

Editor 

CIS: 70302,2566 ; Internet: ronb@rdpub.com ("... !uunet!rdpub!ronb") 
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AAA 

Develop 

Windows Applications 
Quickly and Easily 


Phase3 Has Everything You Need 


Visual Development 

The Phase3 visual development environment 
provides a comprehensive suite of tools for 
screen creation. All standard Windows 
screen objects - push buttons, radio buttons, 
dialog boxes, etc. - are selectable from icon 
bars and are dynamically placed and sized 
on the screen as appropriate for the 
application. Standard Windows APIs are 
available from list boxes and are supported 
with on-line documentation. 


Phase3 Database 

Phase3 includes a relationally complete 
database supplied as a Windows DLL. The 
database supports complex data relation¬ 
ships and access and data manipulation by 
any language through a comprehensive 
suite of supplied database routines. 
Database integrity is enhanced with 
rollback recovery and transaction control. 
The Phase3 data dictionary simplifies data 
model definition and maintenance. 


Query and Reporting 

The Report Writer includes standard 
features like flexible headers, footers, free 
text, calculated fields, sort group sections 
and breaks, and subtotals. Reports can also 
include bitmaps of drawings and photo¬ 
graphic images. Queries are executed with 
the Database Browser which also allows 
data entry and manipulation. Railway 
diagrams assist in query creation, prompt¬ 
ing the user for appropriate selections and 
eliminating syntactical errors. 



Royalty-Free Applications 

Windows is a trademark of Microsoft Corporation. Turbo Pascal 
for Windows and Borland Pascal 7.0 are trademarks of Borland 
International, Inc. All other trademarks or service marks are 
recognized as the property of their respective owners. 


Lower CASE, E-R Modeling 

Phase3 automates logical data model design 
with Entity-Relationship modeling. After a 
user describes entity relationships graphi¬ 
cally and enters field descriptions, Phase3 
generates the physical database based on an 
analysis of the entity relationships. Phase3 
automatically includes foreign keys in 
appropriate tables and restructures the 
database as requirements change. Phase3 
suggests appropriate referential integrity 
constraints to be enforced at runtime. 


Hierarchy Chart 

Phase3 maintains a graphical map of an entire 
application. The Hierarchy Chart includes all 
windows, dialogs, reports, and code routines. 
To access the underlying C or Pascal source 
code, simply point-and-click on any node. 
Phase3 generated source is easily accessed 
and extended with user written routines. User 
code is preserved even if an application is 
regenerated. The Hierarchy Chart and E-R 
Diagram provide instant core documentation 
for an application. 


Help Generator 

The Phase3 Help Generator allows the easy 
creation of a complete Windows application 
help subsystem including context sensitive 
on-line help. The Help Generator includes its 
own text editor that gives complete control 
over the content, appearance, and branching 
logic through highlighted trigger text. Phase3 
generates a Windows compatible file with an 
“.HLP" extension that is then accessible 
from within the Phase3 created application. 
No other external tools are required. 


“... a thoroughly remarkable product... 
very impressive” 

Jeff Duntemann 

PC Techniques 

▲ ▲ ▲ 

“I was very impressed with Phase3, and using it 
made me wish I had learned Windows programming 
with a tool like this. Now that I know what it has to 
offer, I’ll probably use it to build the frame for most 
of my programs.” 

L. John Ribar 

Windows Tech Journal 

▲ ▲ ▲ 

' Phase3 hides the complexity of Windows program¬ 
ming but still allows an experienced programmer to 
drill down and extend generated C or Pascal source 
code, providing ultimate control.” 

Randy Goodhew 

Computer Software Columnist 


“Phase3 takes an intuitive, innovative approach to 
developing Windows applications. It’s a pleasure to 
work with and has greatly boosted our productivity. 
One of the most important issues for us is that their 
technical support Is excellent.” 

Reuben Halevi 

ISoft D&M 


“It’s easy to put together an application with Phase3 
- everything’s integrated. And the Phase3 database 
is terrific. It’s closer to true relational than anything 
we’ve found.” 

Michael Erickson 

Prism Business Solutions 


Order Now 

800 - 851-5650 

Or Call for Free Demo Disk 
Fax (805) 641-9083 


CALL NOW FOR COMPETITIVE UPGRADE PRICING 
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A Soundex Function 


Reprinted with permission from Smart Access. All rights reserved. Pinnacle 
Publishing, Inc., P.O. Box 888, Kent, WA 98035-0888. 206-251-1900, 800-788- 
1900, Fax 206-251-5057. 

People often misspell words, especially names. Unfortunately, in a search 
for information, misspellings can wreak havoc. To get around the problem of 
misspellings, many information systems that are dependent on names (e.g., 
state vital statistics and genealogy systems) use surname coding algorithms. 
The most commonly used algorithm in the United States is based on the 
Russell Soundex algorithm, and many database programs support Soundex 
searches using the Russell algorithm or a variant of it. Microsoft Access, how¬ 
ever, does not include any Soundex capability, so I created a Soundex user- 
defined function. 


The Soundex () Function 

Listing 1 shows Soundex (). The function takes the name 
that is passed to it, pvarSurName, and outputs a four-digit 
string. The basic concept is simple: ignore the unreliable com¬ 
ponents of a name while preserving most of the discriminating 
power. This is achieved by the following algorithm: 

1. The first letter of the surname is used as is. This letter is 
termed the prefix character. 

2. The remaining characters in the surname are coded with 
three digits ranging from 0 to 6. The characters are coded 
as follows: 

a. W and H, spaces, and any non-alphabetic characters are 
ignored. 

b. Vowels and Y are also ignored, but they serve as 
separators for repeating consonant sounds. 

c. The remaining consonants are given a code from 1 to 6 
as follows: 

B, P,F,V are coded as 1. 

C, G,J,K,Q,S,X,Z are coded as 2. 

D, T are coded as 3. 

L is coded as 4. 

M,N are coded as 5. 

R is coded as 6. 


Paul Litwin is a biostatistician and database developer working for the 
Department of Medicine at the University of Washington in Seattle. He is also 
the owner of Litwin Consulting and the editor of Smart Access, a monthly 
technical newsletter devoted to Access. Paul can be reached at 206-783-6902, 
on CompuServe at 76447,417, or on Internet at 76447.417@Compuserve.Com. 
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for Microsoft Access 
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d. A repeat of a previously coded consonant is not coded, 
unless a separator is present. For example, for “MN,” 
only the M is coded, since M and N have the same 
code, but for "MON,” both M and N are coded. 

3. The encoding stops when the Soundex code is four charac¬ 
ters long (including the prefix). If there are no additional 
characters in the name and fewer than four characters in 
the code have been used, fill the remainder of the code 
with zeros. 

To create Soundex (), define a new module (or edit an ex¬ 
isting module in design mode) and enter the code in Listing 1 
as a new function. Alternately, you can copy the function 
from the sample database provided with the electronic code 
distribution (described below). 

The Soundex Database 

To illustrate the use of Soundex (), 1 created a database, 
soundex.mdb (included on the code disk; see Contents page 
for source code availability) with a sample employee table 
called tblEmployeeNoSndx. This table contains the following 
columns: 

Employee/D Counter 

LastName Text 

FirstName Text 

Title Text 

BirthDate Date/Time 

HireDate Date/Time 

Address Text 

City Text 

State Text 

ZipCode Text 

Extension Text 

Parameter Queries 

The size of your tables and the frequency of your searches 
will gauge how you make use of Soundex () in your database 
applications. If you will be performing ad-hoc Soundex sear¬ 
ches of small tables, Soundex () works well in a parameter 
query, that is, a query with one or more parameters that are 
prompted for upon execution. For example, you might create 
the query, qrySndxCalc, to prompt the user for a last name 
and return a dynaset of all rows from tblEmployeeNoSndx 
with matching Soundex codes for the LastName field (see Fig¬ 
ure 1). 


The first step in defining this query is to create a calculated 
field, SndxCode, which will compute the Soundex code for 
each record using the following expression: 

SndxCode: Soundex([LastName]) 

To compare SndxCode with the Soundex() of the user- 
entered last name parameter, enter the following expression 
under SndxCode's "Criteria:" row: 

Soundex([Enter Last Name:]) 

After entering this expression, enter the parameter “Enter Last 
Name:" and its data type (Text) in the Query-Parameters dialog 
box. Although this step is optional, it avoids potential 
problems and makes the query more efficient, since Access 
won’t have to guess the data type of the parameter. 

Upon execution of the query, Access displays a parameters 
dialog box like the one shown in Figure 2 where the user 
enters a surname. For example, if the user entered “Johnson”, 
the Soundex code would be J525. In the sample database, this 
will match up with last names of Johnson, Jensen, Jonsen, and 
Jamison. Remember that Soundex () works by compressing 
the information stored in a surname and converting it into a 
four-digit code. Most of the time, as in this example, the 
results are as expected, occasionally, however, you will find 
that names that don’t sound very similar are assigned the 
same code. For example, Flernandez and Harriman both share 
a Soundex code of H655. 

Indexed Searches 

The parameter-query approach works well when querying 
tens of records but is too slow when dealing with hundreds or 
thousands of records. In this case, the better strategy is to 
store the soundexed name directly in an indexed table field 
rather than a query field. 

For example, I created another table in soundex.mdb called 
tblEmployee, which is identical to tblEmployeeNoSndx, except 
for the addition of the column SndxCode. This column is 
defined as a four-character text field with a non-unique index. 
Access doesn't directly support calculated fields in tables, but 
you can have SndxCode automatically calculated by using a 
form. 
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Listing 1 The Soundex function 

Function Soundex (ByVal pvarSurName As Variant) As Variant 

Dim intSeparator As Integer 


Dim intSdxCode As Integer 

'Copyright 1992, 1993 Paul Li twin. 

Dim intPrvCode As Integer 

'ALL RIGHTS RESERVED. 

Dim varCurrChar As Variant 

'' 

Dim varSdx As Variant 

'Purpose: Soundex takes a surname string and returns a 4-digit string 


representing the Russell Soundex code. 

On Error GoTo SoundexError 

'Author: Paul Litwin 

'If a null or empty string was passed, return a null 

'Passed: A surname (last name) as a variant. 

If IsNull(pvarSurName) Then 

'Returns: A 4-digit Soundex code as a variant. 

varSdx = "" 


GoTo SoundexDone 

Dim intLength As Integer 

Else 

Dim intCharCount As Integer 

intLength = Len(pvarSurName) 

Dim intSdxCount As Integer 

If intLength = 0 Then 
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Color reduction, edge detection, etc. 
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• Call for more details by fax. 



Visual Basic Custom Control 


TIFF 

PCX 

JPG 

T G A 

BMP 

WMF 


High Performance Imaging! 

AccuSoft Corp. 112 Turnpike Rd. Westborough, MA 01581 (508) 

□ Request 193 on Reader Service Card □ 


(800) 525-3577 

(508) 898-9662 (FAX) 

Format 

Compatibilit/ 

<5uara n,eed 

Biliii l lllll l l l ll l lBII I IMlB IM M MMMMM 



The form frmEmployee is a simple 
data entry form for tblEmployee. This 
form contains a bound text box control 
for each column in tblEmployee. The 
text box control, txtSndxCode, is bound 
to the SndxCode column. I have set its 
“Locked” property to Yes, since its value 
will not be entered by the user. I could 
have made txtSndxCode hidden, but I 
prefer to have its value visible to the 
user. To calculate the Soundex code, I 
have attached a function to the "After- 
Update" property of txtLastName. This 
will cause Access to recalculate the 
Soundex code every time the last name 
is updated. The simple function, frm- 
Emp loyee_txtLas tName_Aft erUpdate, 
calls Soundex () to calculate the Soun¬ 
dex code: 

Function 

frmEmployee_txtLastName_AfterUpdate 

(pfrm As Form) 

pfrm!txtSndxCode = 

Soundex(pfrm!txtLastName) 

End Function 

Alternately, a macro could have been 
attached to the "AfterUpdate" property 
of txtLastName. I prefer to use Access 
Basic code, however, rather than 
macros. 

As long as records are added using 
the form frmEmployee, the correct 
Soundex code will always be stored in 
the SndxCode column of tblemployee. If 
records are entered without using a 
form, e.g., if a batch of records is im¬ 
ported into a table, you can use an ac¬ 
tion query to update the SndxCode with 
the correct Soundex code. For example, 

I have created an update query, qupd- 
EmployeeSndx, which updates SndxCode 
whenever its value is null (see Figure 3). 
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Listing 1 continued 

varSdx = "" 

intSdxCode = 3 

GoTo SoundexDone 

Case "L" 

End If 

intSdxCode = 4 

End If 

Case "M", "N“ 


intSdxCode = 5 

intSeparator = 0 'Keeps track of vowel separators 

Case "R" 

intPrvCode = 0 'The code of the previous char 

intSdxCode = 6 

intSdxCount = 0 'Counts number of soundex chars 

Case "A", "E", "1", "0", "U", "Y" 

intCharCount * 0 'Counts number of surname chars 

intSdxCode = -1 


Case Else 

'Loop until the soundex code is of length 4 

intSdxCode = -2 

'or we have run out of characters in the surname 

End Select 

Do Until (intSdxCount = 4 Or intCharCount = intLength) 

'Treat the first character specially 

intCharCount = intCharCount + 1 

If intCharCount = 1 Then 

varCurrChar = Mid(pvarSurName, intCharCount, 1) 

varSdx = UCase(varCurrChar) 
intSdxCount = intSdxCount + 1 

'Calculate the code for the current character 

intPrvCode = intSdxCode 

Select Case varCurrChar 

intSeparator = 0 

Case "B", "F", "P". "V" 


intSdxCode = 1 

'If a significant constant and not a repeat 

Case "C", "G", "J", "K\ "Q\ "S", "X", H Z" 

'without a separator then code this character 

intSdxCode = 2 

Elself intSdxCode > 0 And (intSdxCode <> intPrvCode Or intSeparator = 1) 

Case "D", "T" 



To demonstrate the difference between and an indexed an 
unindexed Soundex search, I created another query, qrySndx, 
which is similar to qrySndxCalc, except that it references the 
indexed SndxCode column in tblEmployee instead of calculat¬ 
ing the Soundex of each row on the fly. If you run both 
queries, you will notice that qrySndx is significantly faster, 
even using the relatively small tables in the sample database. 


When to Use Soundex () 

Soundex () and the Russell Soundex algorithm work well 
for surnames from most countries. The algorithm’s discriminat¬ 
ing power is reduced, however, when used with tables con¬ 
taining predominantly short names with a high percentage of 
vowels (for example, names of Chinese origin). Soundex() can 
also be used to search non-surname text strings (for example, 
company or product names), although it may not produce 
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developing connectivity solutions for your clients, MultiLink 
for Windows is a whole new ball game. 

MultiLink for Windows takes advantage of Microsoft® 
Windows' multitasking to provide multiuser capabilities on 
the Windows PC. This means that up to eight users (more 
in some situations) can actually share the CPU to run DOS 
applications from a 
terminal, workstation 
or PC emulating a 
terminal while the 
host Windows PC 
remains active and in 
use. Users sharing 
the PC can be local (in 
the same office) or 
remote (dialing in via 
modem from another 
office or another city). 

First a Programmer's Tool 
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provides fast, simple connectivity versus the com¬ 
plexity of a LAN. One example is the point-of-sale 
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graphics, but back-office managers may wish to use 
Windows for data analysis or monitoring. The oppor¬ 
tunities for unique and exciting applications are endless. 
Score with a Winning Alternative 
MultiLink for Windows is a whole new ball game in 
affordability, ease-of-use, ease-of-development and 
connectivity. It is a tool for transition from the 
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Client/Server 
Database Solutions 


It’s available now—ready to per¬ 
form on your desktop. A new 
function-rich, 32-bit relational 
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power and open architecture of OS/2, it also 
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portable applications. And it runs your DOS, 
DOS Windows™ and OS/2 
applications requiring 
online access. 

You can access data 
directly from DB2/2 on 
your desktop or from a 
DB2/2 server on your 
LAN, and with 
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DISTRIBUTED DATABASE 
CONNECTION SERVICES/2 7 
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databases as if they were on your desktop, too. 
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an Information Warehouse™ solution 
for your business. 
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exciting demo diskette to show 
you just how well new DB2/2 
performs—right on your desktop. Call us today 
for your free demo, or to order DB2/2: 

1 800 342-6672; or fax: 1 800 445-2426. 

In Canada, call 1 800 465-7999, ext. 850. 

An upgrade from OS/2 Extended Edition 
or Extended Services is also available. 
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Listing 1 continued 


Then 

varSdx = varSdx + Format(intSdxCode, "#") 
intSdxCount = intSdxCount + 1 
intPrvCode = intSdxCode 
intSeparator = 0 

'If a vowel, this character is not coded, 

'but it will act as a separator 
El self intSdxCode = -1 Then 
intSeparator = 1 
End If 

Loop 

'If the code is < 4 chars long, then 
'fill the rest of code with zeros 
If intSdxCount < 4 Then 

varSdx = varSdx + String((4 - intSdxCount), "0") 

End If 

SoundexDone: 

'Return the soundex code 
Soundex = varSdx 
On Error GoTo 0 
Exit Function 

SoundexError: 

Select Case Err 
Case Else 

MsgBox "Error #" & Str(Err) & " encountered." & Chr(13) & 
Chr(13) & Error(Err), 0 + 16, "Soundex Error" 

End Select 
Resume Next 

End Function 
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desired results if the strings are very long or contain many 
non-alphabetic characters. The best way to determine if Soun¬ 
dex () will work in a given situation is to experiment. 

Soundex () is a useful function for performing searches on 
surnames. Used wisely, it can make name searches much 
more efficient, especially where misspellings are common. □ 



Figure 1 When executed, qrySndxCalc will prompt 
the user for a last name and return all rows from 
tbIEmployeeNoSndx with the same Soundex code. 




Figure 3 The qupdEmployeeSndx update query will 
update the value of SndxCode in tbIEmployee whenever 
the value is null. 
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Direct Windows Graphics 
from MS-Fortran v5.1 


Kenneth G. Hamilton 


Microsoft's Fortran 5.10 package tacitly recognized one of computerdom's 
deeper secrets: Fortran programmers don't like coding. Fortran users, typical¬ 
ly scientists and engineers, treat programming as they do driving a car —as 
a skill that allows them to accomplish something else. 

Conventional Windows programs, written in C, take several pages of 
source code just to display “Hello, World.'' Most of the lines involved are 
boilerplate: a polling loop for messages, a callback function, resource script, 
etc. The QuickWin package interfaces between standard Fortran I/O and 
Windows, so that a Fortran Windows program really is as simple as: 


PRINT 

END 


'Hello, World! 1 


which happens to be exactly one line longer 
than the minimum legal Fortran program: 
END. 

The price you pay for being insulated 
from the complexity of the Windows API is 
some loss of efficiency and power. In par¬ 
ticular, using the QuickWin Graphics (QWG) 
Library can be several times slower than 
calling the Windows API directly to perform 
graphics. This article demonstrates how to 
mix the simplicity of the QuickWin interface 
with direct calls to Windows API functions in 
order to obtain efficient graphics. 

The techniques I present are not docu¬ 
mented or supported by Microsoft. This 
means that if you get into trouble and 
decide to call the product support line, the 
official response will be that they are “not 
trained” to support such things. So, in some 
respects, you are on your own. 


Ken Hamilton has a Ph.D. in physics from the University of California, San 
Diego, and is Chief Scientist at Garjak Research, Inc. He has been involved in 
solid state theory, numerical hydrodynamics, and geophysics. Computational¬ 
ly, he has been hacking Fortran since the IBM 1620, and enjoys wrecking 
compilers during beta tests. He can be reached on CompuServe at 72727,177. 
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Beyond QuickWin 

When Microsoft’s developers put the QuickWin package 
together, they apparently started with the standard large- 
model C runtime library, 11 ibcew. I ib, which at that time was 
being distributed as part of the Windows 3.0 Software 
Development Kit (SDK). They renamed the file llibfew.lib 
and then added some extra elements, including an alternate 
startup module to provide the message polling loop and the 


other invisible necessities. They inserted some additional code 
to allow the standard OPEN statement to create a window (if 
the FILE= 'USER ' clause was specified), and then put in a few 
wrapper routines to give a Fortran-like face to such operations 
as popping up a message box. 

Microsoft did not really finish the job, since many features 
of Windows are not supported by the QuickWin package. To 
the truly determined explorer, though, this turns out not to be 


Listing 1 winapi.for — Interface declarations for Windows API functions 


winapi.for - Windows API function declarations 


INTERFACE TO INTEGER*2 FUNCTION 
character*^*) a[FAR,REFERENCE] 
integer*2 n [VALUE] 
end 

INTERFACE TO INTEGER*2 FUNCTION 
character*^) a [FAR, REFERENCE] 
integer*2 n [VALUE] 
end 

INTERFACE TO INTEGER*2 FUNCTION 

integer*2 hwnd [VALUE] 

end 

INTERFACE TO INTEGER*2 FUNCTION 
end 

INTERFACE TO INTEGER*2 FUNCTION 
integer*2 hdc [VALUE] 
integer*2 maxch[VALUE] 
character*^) a [FAR, REFERENCE] 
end 

INTERFACE TO INTEGER*2 FUNCTION 
integer*2 hwnd[VALUE] 
character*^*) a [FAR, REFERENCE] 
integer*2 maxch[VALUE] 
end 


GETWINDOWSDIRECTORY (A,N) 

! Character buffer 
! Size of above 

GETSYSTEMDIRECTORY (A,N) 

! Character buffer 
! Size of above 

GETDC(HWND) 

! Call ReleaseDC later 
GETF0CUS() 

GETTEXTFACE(HDC.MAXCH,A) 

! Size of buffer 
! Character buffer 

GETWINDOWTEXT(HWND,A,MAXCH) 

! Character buffer 
! Size of above 
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INTERFACE TO INTEGER*2 FUNCTION RELEASEDC(HWND,HDC) 
integer*2 hwnd [VALUE] 

integer*2 hdc [VALUE] ! Give back what GetDC gave 

end 

INTERFACE TO SUBROUTINE GETWINDOWRECT(HWND.LPRECT) 
structure /red/ 

1nteger*2 left,top,right,bottom 
endstructure 
integer*2 hwnd[VALUE] 
record /red/ lprect [REFERENCE] 
end 

INTERFACE TO SUBROUTINE GETCLIENTRECT(HWND.RECT) 
integer*2 hwnd[VALUE] 
structure /s_rect/ 
integer*2 left, top, right, bottom 
endstructure 
record /s_rect/ rect 
end 

INTERFACE TO INTEGER*2 FUNCTION CREATEPEN(STYLE,WIDTH,RGB) 
integer*2 style[VALUE] ! 0=solid, 1=—, 2=..., 3=-., 4=-.. 

integer*2 width[VALUE] ! Pen width: 1 is narrow, 8 is wide 

integers rgb[VALUE] ! Color as #00RRGGBB 

end 

INTERFACE TO L0GICAL*2 FUNCTION DELETEOBJECT(HOBJ) 

integer*2 hobj[VALUE] 

end 

INTERFACE TO INTEGER*2 FUNCTION ELLIPSE(HDC,X1,Y1,X2,Y2) 
integer*2 hdc[VALUE] 

integer*2 xl[VALUE], yl[VALUE] ! Upper left of bounding box 

integer*2 x2[VALUE], y2[VALUE] ! Lower right of bounding box 

end 

INTERFACE TO INTEGER*2 FUNCTION LINETO(HDC.X.Y) 
integer*2 hdc [VALUE] 

integer*2 x[VALUE], y[VALUE] ! Line from current point to here 

end 

INTERFACE TO INTEGER*4 FUNCTION MOVETO(HDC.X.Y) 
integer*2 hdc[VALUE] 

integer*2 x[VALUE], y[VALUE] ! Move from current point to here 
end 

INTERFACE TO INTEGER*2 FUNCTION RECTANGLE(HDC,X1,Y1,X2,Y2) 
integer*2 hdc[VALUE] 

integer*2 xl[VALUE], yl[VALUE] ! Pixel addr of upper left 

integer*2 x2[VALUE], y2[VALUE] ! Pixel addr of lower right 

end 

INTERFACE TO INTEGER*2 FUNCTION SELECTOBJECT(HDC.HOBJ) 
integer*2 hdc[VALUE] 

integer*2 hobj[VALUE] ! Handle from CreatePen, etc. 

end 

INTERFACE TO INTEGERS FUNCTION SETPIXEL(HDC.IX.IY.RGB) 
integer*2 hdc[VALUE] 

integer*2 ix[VALUE], iy[VALUE] ! Make this pixel be this 

integers rgb [VALUE] ! Color as I00RRGGBB 

end 

INTERFACE TO INTEGER*2 FUNCTION SETTEXTCOLOR(HDC.RGB) 
integer*2 hdc[VALUE] 

integer*4 rgb[VALUE] ! Color as I00RRGGBB 

end 

INTERFACE TO INTEGER*2 FUNCTION TEXT0UT(HDC,X,Y,STR,NC) 
integer*2 hdc [VALUE] ! Device context 

integer*2 x[VALUE], y[VALUE] ! Starting point 

character*(*) str ! String to write 

integer*2 nc[VALUE] ! Number of bytes 

end 

INTERFACE TO INTEGER*2 FUNCTION GETSTOCKOBJECT(I FLAG) 

1nteger*2 iflag[VALUE] ! Font, brush, or pen number 
end 

INTERFACE TO SUBROUTINE MESSAGEBEEP(wtype) 

integer*2 wtype [VALUE] 

end 
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a problem. A number of users discovered early in the game 
that llibfew. lib had lots of extra goodies inside, then found 
that they could link their programs to many more features 
than Microsoft had planned. 

There are two approaches to breaking free of QuickWin’s 
limitations. First, you could throw out QuickWin altogether and 
depend completely on direct calls to the Windows API, as a C 
program might. Second, you could use QuickWin as the start¬ 
ing point, and then call additional Windows API routines 
directly only where you need to enhance speed or access 
capabilities QuickWin does not provide. 

The first alternative simply substitutes pages of ugly 
Fortran for the pages of ugly C that one normally sees in win¬ 
dows programming. While I readily admit to being a Fortran 
bigot, I can’t say that this is much of an 
improvement. 

This article addresses the second al¬ 
ternative. By starting from a working 
QuickWin program, you can effectively 
have your cake and eat part of it, too. 

You can exploit QuickWin to rapidly ob¬ 
tain a working program, and then call 
some extra features on top of that. Al¬ 
though the Windows API offers many 
features that you might want to access 
(depending on your application), this ar¬ 
ticle focuses only on display issues. 

About six months after the official 
introduction of Fortran 5.10, Microsoft 
released the QuickWin Graphics (QWG) 

Library. From the calling program’s 
perspective, this package looks just like 
the DOS-based graphics.lib, but it 
draws images under Windows 3.x. 

Some of the code I present here dupli¬ 
cates features of QWG, but by calling 
the Windows graphics functions direct¬ 
ly, it runs several times faster. This 
speed difference occurs because QWG 
saves the picture as you draw it, so 
that the image can be restored if the 
window is resized (this would be in 
response to the UM_PAINT message that 
a normal Windows program would 
receive in its polling loop), if your 
Fortran program calls the Windows API 
directly for graphics, you must also take 
responsibility for repainting the window. 

Handling Windows Handles 

Most languages used for Windows 
programming include a large file that 
declares all the Windows API functions. 

Since the Windows API is more or less a 
C API (although, technically, it uses the 
PASCAL calling sequence), part of the 
purpose of these declarations is to tell 
the language compiler how to call and 
pass arguments correctly to the C-style 


functions in the API. This section shows you how to construct 
the declarations you will need in order to call Windows API 
functions directly from Fortran. In general, building these dec¬ 
larations requires adroit use of the “square bracket" variable 
attributes defined in Section 1.6 of the Microsoft Fortran 5.1 
Re/erence Manual. If you do much API programming, you will 
also want to have a copy of the complete Windows API 
documentation at hand. 

Documentation and most Windows programs written in C 
use mixed-case variables and function names. In contrast, 
Fortran is a case-independent language in which all symbols 
are converted to upper case by the compiler. Happily, this 
does not cause any difficulties, since the Windows API func¬ 
tions are also spelled in all caps because of Microsoft’s choice 
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Listing 2 gethand.for — Obtaining and using Windows handles 


include 'winapi.for' 

PROGRAM GET_HANDLES 
integer*2 GetDC, GetFocus 

integer*2 GetTextFace, GetWindowText, ReleaseDC 
integer*2 GetWindowsDi rectory, GetSystemDirectory 
character buf*40 

integer*? hinst[EXTERN,C,ALIAS:"_hlnstance 11 ] 

integer*2 hwnd 

print 10, hinst ! Handle to process instance 

10 format (' hlnstance = 1 ,24,'(hex) 1 ) 

hwnd - GetFocusO ! Handle to default window 

print 20, hwnd 

20 format (' Window handle ■ 1 ,Z4, 1 (hex) 1 ) 
nbuf ■ len(buf) 

1 = GetWindowText(hwnd,buf,nbuf) ! Get window title 

if (1.It.nbuf) buf(l+l:) = ' ' ! Get rid of NULLs and junk 

print 40, buf(:1) 

40 format (' The title at the top of this window is: ,A,"") 

hdc = GetDC(hWnd) ! Handle to device context 

print 60, hdc 

60 format (' Device Context handle = 1 ,Z4,'(hex)') 

1 ■ GetTextFacefhdc,nbuf,buf) ! Name of char font 

if (1.It.nbuf) buf(1+1:) = ' ' 
print 80, buf(:1) 

80 format (' The current text face name is: '",A,"") 

is * ReleaseDC(hwnd.hdc) ! Return the device context 

if (is.ne.l) print *, ‘hDC not released' 

1 = GetWindowsDirectory(buf.nbuf) 
if (1.It.nbuf) buf(1+1:) ■ 1 1 
printl20, buf(:1) 

120 format (' Windows Directory is: '".A,"") 

1 = GetSystemDirectory(buf.nbuf) 
if (1.It.nbuf) buf(1+1:) - ' ' 
print 140, buf(:1) 

140 format (' System Directory is : '",A,"") 

stop 

end 


Listing 3 winsize.for - Detecting window position changes 


include 'winapi.for' 
c 

$nolist 

include 'flib.fi' 

$ 1 i s t 
$page 

PROGRAM REP0RT_WIND0W_SIZE_AND_P0SITION 
$nolist 

include 'flib.fd' 

$1 ist 

integer*2 GetFocus, hwnd 
c 

structure /s_rect/ 
integer*2 left, top, right, bottom 
endstructure 

record /s_rect/ wndsize[FAR], oldsize 

hwnd = GetFocusO ! Note, no arguments needed 

100 call yieldqqO ! Let Windows do something else 

call GetWindowRect(hwnd,wndsize) ! Get size of window 
c 

c If anything has changed about the window, write out a message 
c 

if ((wndsize.left .ne. oldsize.left) .or. 

& (wndsize.top .ne. oldsize.top) .or. 

& (wndsize.right .ne. oldsize.right) .or. 

& (wndsize.bottom .ne. oldsize.bottom)) 


of a Pascal calling convention. Pascal, by 
default, converts external symbols to 
upper case and pushes the arguments 
on the stack in the same order as 
Fortran, the only difference being that 
Pascal passes most arguments by value 
rather than by reference. To enhance 
readability, I will use mixed case entry- 
point names in the sample programs — 
this has the benefit of highlighting the 
first letters of the words after they have 
been concatenated into incredibly .long 
function names, winapi.for (Listing 1) 
contains a common set of interface 
declarations to Windows API functions 
shared by the example programs I will 
present. 

To understand how to call Windows 
API functions directly, you have to first 
map Windows concepts (based on C 
functions) onto Fortran concepts. One 
broadly used Windows concept, for ex¬ 
ample, is that of a handle. Rather than 
letting you operate on Windows en¬ 
tities (such as windows, fonts, bitmaps, 
and so on) directly, Windows gives you 
a handle, which is nothing more than a 
16-bit integer that uniquely identifies 
the entity. To manipulate the Windows 
entity, you pass the handle to other 
Windows functions. In Fortran program¬ 
ming, a handle might be called a 
"derived type” (at least, that's what 
Fortran-90 calls such things). All your 
Fortran program needs to know about 
handles, however, is that they are 2- 
byte entities that identify a specific 
Windows entity. You can therefore 
declare a variable that contains a hand¬ 
le like this: 

INTEGER*2 HANDLE_T0_S0METHING 

One handle you may need is the in¬ 
stance handle, which uniquely identifies 
your running program to Windows. 
Various Windows functions require you 
to supply your program's instance 
handle, so you need to know how to 
obtain it. When a C program starts up, 
Windows passes it several arguments, 
one of which is the instance handle. 
While the QuickWin code does not not 
give you this variable directly, it stores 
its value as a global variable, which you 
can access like this: 


(text continued on page 18) 
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Listing 3 winsize.for — Detecting window position changes 


& print 120, wndsize.left, wndsize.right, 

& wndsize.top, wndsize.bottom 

120 format (' Window Size in Pixels: Left:',14,', Right :',14/ 
& 24X,'Top :',14,', Bottom:',14) 

c 

oldsize.left = wndsize.left 
oldsize.top = wndsize.top 
oldsize.right = wndsize.right 
oldsize.bottom = wndsize.bottom 
go to 100 
c 

end 


Listing 4 clientsz.for — Detecting window client size changes 


include 'winapi.for' 
c 

Jnolist 

include 'flib.fi' 

$1 i st 
$page 

PROGRAM REPORT_CLIENT_SIZE_ONLY 
$nolist 

include 'flib.fd' 

$1 i st 

integer*2 GetFocus, hwnd 
c 

structure /s_rect/ 
integer*2 left, top, right, bottom 
endstructure 

record /s_rect/ wndsize[FAR], oldsize 
c 

hwnd = GetFocus() ! No arguments needed 

100 call yieldqq() ! Avoid locking up Windows 

call GetClientRect(hwnd,wndsize) ! Get size of client area 
c 

if ((wndsize.left .ne. oldsize.left) .or. 

& (wndsize.top .ne. oldsize.top) .or. 

& (wndsize.right .ne. oldsize.right) .or. 

& (wndsize.bottom .ne. oldsize.bottom)) 

& print 120, wndsize.left, wndsize.right, 

& wndsize.top, wndsize.bottom 

120 format (' Window Size in Pixels: Left:',14,', Right :‘,14/ 

& 24X,'Top :',14,', Bottom:',14) 

c 

oldsize.left = wndsize.left 
oldsize.top = wndsize.top 
oldsize.right = wndsize.right 
oldsize.bottom = wndsize.bottom 
go to 100 
c 

end 


Listing 5 graphics.for - Calling Windows graphics functions 


include 'winapi.for' 

Jnolist 

include 'flib.fi' 

$1 i st 
Jpage 

PROGRAM WINDOWS GRAPHICS 

real*4 TWOPI/6.283185308/,HALFSR2/0.707106781/ 

realM rr,r,rred,rgrn,rblu 

real*4 ul,u2,w,x,y 

integer*4 MoveTo, SetPixel, xyprev 

integer*2 GetFocus, GetDC, ReleaseDC 

integer*2 Rectangle, Ellipse, LineTo 

integer*2 CreatePen, SelectObject. SetTextColor, TextOut 

integer*2 hwnd, hdc 

logical*2 DeleteObject, ldum 
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integer*2 hinst[EXTERN,C,ALIAS:"_hInstance"] 

None of the programs in this article uses the instance handle, 
but you may need it at some point if you explore further, and 
the fact that you can get it through this mechanism is not 
documented anywhere else. 


Don’t worry about the message that the compiler emits, 
asserting that hinst is used but not given a value: this is, in 
fact, a compiler bug. Obviously, a variable that has the EXTERN 
attribute does not need to be given a value locally —it really 
has the status of a one-element COMMON block and the com¬ 
piler cannot know how or whether it was initialized. 

Another common kind of handle is 
the window handle. Whenever you 
operate on a window (to draw graphics, 
change the caption, etc.), you must pass 
the handle that uniquely identifies that 
window. C programs normally obtain a 
window handle when they call a Win¬ 
dows API function to create the win¬ 
dow. The question is, how do you ob¬ 
tain the handle for a window in Fortran, 
especially if the handle was created for 
you by QuickWin? 

One way to obtain an existing 
window’s handle is via the Windows 
API function GetFocus(), which returns 
the handle of the window that current¬ 
ly has the input focus (the one whose 
title is highlighted). When you open a 
new window under QuickWin, that win¬ 
dow normally acquires the input focus, 
and there is also a QuickWin subroutine 
(called FOCUSQQ) that can switch the 
focus under program control. If no win¬ 
dows have been opened using the 
QuickWin clause FILE='USER‘, then the 
focus is the standard output —or “logi¬ 
cal unit 6”, in Fortran parlance. Right 
after opening each window, and while 
it is still the focus, you can obtain that 
unit’s handle, winapi.for (Listing 1) 
shows how to declare the interface to 
GetFocus()\ it takes no arguments and 
returns a window handle. 

The handle to the window is not 
sufficient by itself. In order to write to 
the window, you also need to obtain 
the handle to the “device context" for 
the display area. The device context 
basically describes the current graphics 
parameters for the window (the current 
font, current brush, current foreground 
and background colors, and so on). You 
will discover that, unlike most modern 
graphical environments, Windows es¬ 
sentially forces you to set all these 
parameters nearly every time you draw 
in the window. The reason is that the 
window's device context (basically an 
internal structure of graphics 
parameters) is allocated from an array 
that is shared by all programs, so Win¬ 
dows expects you to free up each 
device context as soon as possible. 


! Map 4 bytes into one 1*4 


Listing 5 continued 


integer*4 lrgb, i1. nl 
integer*! brgb(4) 
equivalence (brgb.lrgb) 
character line*80 
c 

$nolist 

include 'flib.fd' 

$1 i st 


structure /street/ 
integer*2 left, top, right, bottom 
endstructure 
record /s_rect/ clisize 

ids = aboutboxqq('MSF Win Demo'//char(13)// 

& 'Kenneth G. Hami1 ton 1 //char(O)) 

print 20 
20 format ( 

& ' Maximize this window now in order to see the full show'/ 

& ' Enter the number of lines to draw (10,000 is good)->',$) 
read (*,*) nl 

hwnd ■ GetFocus() ! Note, no arguments needed 

call GetClientRect(hwnd.clisize) ! Get size of client area 
print 100, clisize.left, clisize.right, 

& clisize.top, clisize.bottom 

100 format (' Client Size in Pixels: Left:',14,', Right :',14/ 

& 24X,'Top :' ,14,' , Bottom:',14) 

hdc = GetDC(hwnd) ! Using previous result 

if (hdc.eq.0) stop 'Bad hDC in Graphics Setup' 


istat = Text0ut(hdc,450,10,'Hel1o',5) 

istat = SetTextColor(hdc,#000000FF) ! Red 

istat = Text0ut(hdc,450,40,'Red',3) 

istat = SetTextColor(hdc,#0000FF00) ! Green 

istat = Text0ut(hdc,450,70,'Green',5) 

istat = SetTextColor(hdc,#00FF0000) ! Blue 

istat = Text0ut(hdc,450,100,'B1ue',4) 

istat = SetTextColor(hdc,#0000FFFF) ! Yellow 

istat = Text0ut(hdc,450,130,'Yellow',6) 

istat = SetTextColor(hdc,#00FF00FF) ! Magenta 

istat = Text0ut(hdc,450,160,'Magenta',7) 

istat = SetTextColor(hdc,#00FFFF00) ! Cyan 

istat = Text0ut(hdc,450,190,'Cyan',4) 

istat = SetTextColor(hdc,#00000000) ! Black 

line = 'This was done exclusively with Microsoft Fortran 5.10' 

lenline = len_trim(line) 

istat = Text0ut(hdc,150,340,line,lenline) 

Draw a few geometric figures 

istat = Rectangle(hdc,50,300,150,320) 

istat = El 1 ipse(hdc,50,50,150,250) 

Make a Gaussian cloud in the middle of the ellipse by 
marking pixels with green dots 
do i=1,30000 
call random(ul) 
call random(u2) 
ul = 2*ul - 1 
u2 = 2*u2 - 1 
w = ul**2 + u2**2 
if (w.gt.l.) cycle 
w = sqrt(-2*alog(w)/w) 
x = ul*w 
y = u2*w 

ix = 100+nint(25*x) 
iy = 150+nint(25*y) 
lrgb = SetPixel(hdc,ix,iy,#0000FF00) 
enddo 

Draw the logo for this project 
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Otherwise, some other application 
might be unable to obtain a device con¬ 
text, which would cause it to fail. 

To obtain the device context for a 
window, you can call the Windows API 
function GetDC(). This function takes a 


window handle as its only parameter 
and returns the handle to the device 
context for that window, winapi.for 
(Listing 1) contains calling-convention 
declarations using the INTERFACE block 
method. One wrinkle is that, since the 


Listing 5 continued 


ipen = CreatePen(0,8,100000000) ! 

Make a wide black pen 


istat = SelectObject(hdc.ipen) ! 

Use it 


ix0=500 ! 

Center of emblem 


iy0=270 

do iazim=135,360+45,5 ! 

3/4 of a circle 


ix = nint(float(ixO) + 20.*sin(TW0PI*f1 oat(iazim)/360.)) 
iy = nint(float(iy0) + 20.*cos(TW0PI*f1 oat(iazim)/360.)) 


if (iazim.eq.135) then 



xyprev = MoveTo(hdc,ix,iy) ! 

First point 


el se 

istat = LineTo(hdc,ix,iy) ! 

endif 

subsequent ones 


enddo 



ipenold = ipen ! 

Save old pen 


ipen = CreatePen(0,8,#000000FF) ! 

Make a wide red pen 


istat = SelectObject(hdc,ipen) 1 

Use it 


ldum = Del eteObject (ipenold) ! 

Wipe out old pen 


do iazim=0,360,5 ! 

Full circle 


ix = nint(float(ix0) + 30.*sin(TW0PI*float(iazim)/360.)) 
iy = nint(float(iy0) + 30.*cos(TW0PI*float(iazim)/360.)) 


if (iazim.eq.0) then 
xyprev = MoveTo(hdc,ix,iy) ! 

First point 


el se 

istat - LineTo(hdc.ix.iy) ! 

endif 

All the others 


enddo 



ix = nint(float(ix0) + 30.*HALFSR2) 
iy - nint(float(iy0) - 30.-HALFSR2) 

! Diagonal slash 


xyprev = MoveTo(hdc,ix,iy) ! 
ix = nint(float(ix0) - 30.*HALFSR2) 
iy = nint(float(iy0) + 30.*HALFSR2) 
istat = LineTo(hdc,ix,iy) 

Move without drawing 

C 

Color Ball 



ix0=320 

iy0=180 

rr=120. 



ipenold = ipen 

ipen = CreatePen(0,1,100000000) ! 

Make a narrow black pen 


istat = SelectObject(hdc.ipen) ! 

Use it 


ldum = DeleteObject(ipenold) ! 

Wipe out old wide pen 


xyprev = MoveTo(hdc,ix0,iy0) ! 

do i1=1,n1 

Go to center of circle 


if (mod(i1,100).eq.0) then ! 

If 100th line, 


call random(rred) ! 

random amount of red 


call random(rgrn) ! 

random amount of green 


call random(rblu) ! 

random amount of blue 


brgb(l)=intl(255.*rred) ! 

Pack colors into 1*4 hue 


brgb(2)=intl(255.*rgrn) ! 

brgb(3)=intl(255.*rblu) 

Easier than using ISHFT 


brgb(4)=0 ! 

Top byte is always zero 


ipenold=ipen ! 

This is the previous pen 


ipen = CreatePen(0,l,lrgb) ! 

Make pen of the new color 


istat = SelectObject(hdc.ipen)! 

Use it 


ldum = DeleteObject(ipenold) ! 

Wipe out old pen 


endif 

call random(r) ! 

Make a random position 


ix=ix0+nint(rr*cos(TW0PI*r)) ! 

on the edge of the 


iy=iy0+nint(rr*sin(TW0PI*r)) ! 

circle, and then 


istat = LineTo(hdc,ix,iy) ! 

enddo 

draw a line to it. 


is = ReleaseDC(hwnd.hdc) ! 

Give back what we took 


stop 



end 
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Table 1 Windows line types 

Symbolic Name 

Numerical Value 

PS SOLID 

0 

PS_DASH 

i 

PS DOT 

2 

PS DASHDOT 

3 

PS_DASHDOTDOT 

4 
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Windows API was intended to be called by C, the argument to 
GetDC() must be passed by value, rather than by address (as 
is the Fortran default). The calling convention for this function 
can be altered by applying the [VALUE] attribute to the 
dummy argument in the INTERFACE block, as you can see in 
winapi.for. 

One simple task you can use a window handle for is to 
manipulate the text of the window's caption. The SDK 
documentation describes a function called GetUindowText () 
that, given a handle to a window, returns the text of the 
window’s caption. As you can see from the declaration in 
winapi.for, GetUindowText() needs to be sent the window 
handle (by value), a string buffer, and 
the length of the buffer (so as not to 
overrun it). The novel feature here is 
that the string is defined in the SDK 
book as being a derived variable type 
called LPSTR. A little bit of sleuthing 
reveals that this is a “long pointer to a 
string." 

Fortran normally wants to pass 
everything by a reference (which is 
what a pointer is), and a “long pointer" 
is simply a far (32-bit segmented) ad¬ 
dress. Thus, LPSTR translates into a 
CHARACTER variable being passed to the 
function with the attributes [FAR, REF¬ 
ERENCE], I should note that the 16-bit 
version of Microsoft’s compiler passes 
CHARACTER variables by simple address, 
rather than the descriptor method that 
most other vendors' Fortrans use. 

With the proper INTERFACE declara¬ 
tion, GetUindowText() does indeed 
place a sensible string in the CHARACTER 
buffer, while also returning the number 
of bytes copied. The string is NULL- ter¬ 
minated, which Fortran programs 
neither need nor want, so you can use 
the “number of bytes” value to clear 
the NULL and any trailing garbage char¬ 
acters to ASCII blanks, as shown in 
gethand.for (Listing 2). The character 
string that is usually returned is “Unit *”. If 
you created the window in question 
with an OPEN statement that had a 
TITLE= clause in it, then the name that 
you supplied there will be returned by 
GetUindowText (). 

After successfully using the window 
handle, you may want to try a simple 
example with the device context handle 
as well. GetTextFace() is a Windows 
function that will return the name of 
the font currently in use. gethand.for 
shows how to call GetTextFace() to 
obtain a CHARACTER variable containing 
the device context’s current font name. 
Unless you have done something about 
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font selection in your program, this will return the font name 
“System” for a QuickWin window. 

Following the call to GetTextFace(), gethand.for frees up 
the device context, using a call to the Windows function 
ReleaseDC() . As mentioned earlier, device contexts are a 
scarce resource, so Windows generally expects you to allocate 
and free them each time you need them, rather than allocat¬ 
ing them when the window is created and freeing them when 
the window is destroyed. 

Two other Windows functions called in gethand.for return 
the name of the directory that Windows is running from and 
the name of the system directory. If you have the default 
installation of Windows, then the strings returned by these 
two modules will be c:\windows and c:\windows\system, 
respectively. 

Repainting 

Windows does not typically save the contents of a window 
that has been covered by other windows or minimized or 
otherwise disturbed. Instead, it sends a m_PAINT message to 
the window to tell the underlying application to redraw the 
contents of the window. QuickWin does not provide an easy 
way to receive window messages, but you can obtain an ap¬ 
proximation of a correctly-painted window by calling Windows 
API funcitons to detect changes in the size. 

Two subroutines in the API tell you where the window is 
and how big it is. The first one, GetWindowRect(), returns a 
structure that indicates the pixel locations of the upper left 
and lower right corners of the window box, including the title 
bar and scroll bars. Since the values that are returned are 
relative to the physical corner of the screen, you can find out 
if the window has been moved by checking the values in the 
structure, winsize.for (Listing 3) shows a sample program 
that checks the size and position of the default and prints a 
message whenever a change is detected. 

A second subroutine, GetClientRect(), measures the size 
of the “client area", the inner portion of the window, minus 
the frame. The routine always returns the upper left corner as 
(0,0), so that the lower right corner coordinate just tells you 
the size of the client area. No positional information is 
returned, clientsz.for (Listing 4) is a program that con¬ 
tinuously checks the client area information for the standard 
output window, and then sends a message when something 
has changed. 

By running both the GetMindowRect() and GetClient- 
Rect() programs, you can see how the two subroutines react 
differently. When you draw on the window via direct calls to 
Windows API functions, the contents of the client area will be 
blanked if the box size changes. Things are left intact if the 
window is moved, that is, if the user clicks on the title bar 
and simply drags the window bodily, in most cases, testing for 
changes in the client area is the critical test to use for repaint¬ 
ing. 

Graphics 

graphics, for (Listing 5) contains a program that demonstrates 
calls to some of the graphics Windows API functions declared in 
winapi.for (Listing 1). To begin with, the full show requires a large 
area, so the program asks you to maximize the window. The 
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Listing 6 alchemy.for - Using TextOutQ to create forms-style windows 


include 'winapi.for' 
c 

$nolist 

include 'flib.fi' 

$1 i st 
$page 

PROGRAM ALCHEMY_SIMULATOR 
$nolist 

include 'flib.fd' 

$1 i st 

common /matl/ nblood, nsweat, ntoil, ntears, nlead, ngold 
integer*2 hwnd 
common /winstuff/ hwnd 
integer*2 GetFocus 
c 

structure /s_rect/ 

integer*2 left, top, right, bottom 
endstructure 

record /s_rect/ wndsize[FAR], oldsize 
c 

nblood = 0 
nsweat = 0 
ntoil = 0 
ntears = 0 
nlead = 0 
nlead = 0 
c 

oldsize.left = 0 
oldsize.top = 0 
oldsize.right = 0 
oldsize.bottom = 0 
c 

hwnd=getfocus() ! Note, no arguments needed 

call draw_form 
c 

isO = 0 


QuickWin function SETUS1ZEQQ is able 
to control the window size to some ex¬ 
tent, but not as much as I would like, 
so when you run the program, you 
should click on the “up” arrows until 
the window covers the entire screen. 
You will then need to enter a 
moderately large number (10,000 is a 
good number for a 486 processor), 
which will determine how long the pro¬ 
gram will run. 

After receiving a number from the 
keyboard, the program calls Get- 
Focus (), GetClientRect() (after which 
it reports the size obtained), and then 
GetDC(). Following that, the program 
calls the API function TextOutf) to 
write “Hello” in black letters, then a 
series of color names, each one in the 
appropriate hue. As documented in the 
INTERFACE block in winapi.for, Text- 
Out () requires the handle to a device 
context (returned by GetDCO), a pixel 
position on the screen, a character 
string, and the number of bytes to 
write. The character string need not be 
terminated by a NULL. 

If the pixel address that you 
specify is outside the client area, then 
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Windows clips the output to fit. In 
some cases, you may want to use the 
information that was returned from 
GetClientRect() to change the size or 
spacing of the output so that it fits. 

Text is written as black; on the white 
client area, by default. If you want to 
write in different colors, you will need 
to call SetTextColor() (as is done in 
the sample program), passing the hand¬ 
le to the device context, along with a 
4-byte-long color value. The high-order 
byte of this is always zero, while the 
succeeding bytes represent the inten¬ 
sity of red, green, and blue coming out 
of the three electron guns. The limits of 
color intensity are from 0 to 255, lead¬ 
ing to the various colors that are shown 
in graphics, for. 

The windows API also provides 
some primitive geometric functions. 
graphics, for uses these capabilities to 
draw a rectangle and an ellipse, both in 
black-on-white. The rectangle is defined 
by the pixel coordinates of its upper left 
and lower right corners, while the el¬ 
lipse is defined by the same corners of 
the bounding box that encloses the el¬ 
lipse. Making a circle is an art, involving 
adjusting the aspect ratio of an ellipse 
so that it appears round, although this 
also depends on the dot spacing of the 
video display. 

You can color individual pixels by 
calling SetPixel(). graphics.for 
demonstrates this by creating nearly 
30,000 dots distributed according to a 
two-dimensional Gaussian distribution. 
On the screen, this will appear as a dust 
cloud - similar to some of the photos of 
globular clusters that can be found in 
astronomy books. 

The default line width is one pixel. 
You can change the width by defining a 
new pen through a call to CreatePen(). 
The function takes parameters that 
define the line type, line width, and line 
color. The line types are as shown in 
Table 1; the value that is used in the 
program calls for a solid line. Create- 
Pen() returns a handle rather than ac¬ 
tually affecting the device context. To 
make that pen the current pen in the 
window’s device context, you must call 
SelectObject(), as shown in 
graphics, for, which uses a wide black 
pen to draw part of a circle by calling 
MoveTo() and LineTo(). These func¬ 
tions take the device context handle 


Listing 6 continued 


C 

C 

c 


c 

c 


c 

c 


100 call yieldqq() ! Let Windows do something else 

call gettim(ih,im,is,ic) ! Get the current time 

if (is.eq.is0) go to 100 ! Wait until the next second 

isO = is 

Find out if the client area has changed and, 
if so, redraw the form 


call GetClientRect(hwnd.wndsize) ! Get size of client 
if ((wndsize.left .ne. oldsize.left) .or. 

& (wndsize.top .ne. oldsize.top) .or. 

& (wndsize.right .ne. oldsize.right) .or. 

& (wndsize.bottom .ne. oldsize.bottom)) call draw_form 

oldsize.left = wndsize.left 
oldsize.top = wndsize.top 
oldsize.right = wndsize.right 
oldsize.bottom = wndsize.bottom 

Check the random deliveries from our unreliable suppliers 


call random(r) 

if (r.gt.0.5) nblood = nblood + 
call random(r) 

if (r.gt.0.5) nsweat = nsweat + 
call random(r) 

if (r.gt.0.5) ntoil = ntoil + 
call random(r) 

if (r.gt.0.5) ntears = ntears + 
call random(r) 

if (r.gt.0.5) nlead * nlead + 
call draw_data 

If not enough raw materials, go 


! Prob of getting blood today 
1 ! If P>0.5, we got some 
! Same for sweat 

1 

! for toil, 

1 

! for tears, 

1 

1 and for lead. 

1 

! Write updated values 
back and wait for some 


if (nblood.It.3) go to 100 
if (nsweat.It.3) go to 100 
if (ntoil .It.3) go to 100 
if (ntears.lt.3) go to 100 
if (nlead .It.3) go to 100 
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Listing 6 continued 


We have enough to process into gold 


nblood = nblood - 3 

nsweat = nsweat - 3 

ntoil = ntoil - 3 

ntears = ntears - 3 

nlead = nlead - 3 

ngold = ngold + 1 

call draw_data 

if (ngold.It.10) go to 100 

Abscond to Brasil with the gold 


! Decrement the inventory 
! as we use the raw matls 


! Incr the gold balance 
! Write updated values 
! Loop back if not enough 


stop 'Bye!' 
end 

SUBROUTINE DRAW_F0RM 

integer*2 hwnd, hdc, hfont, hfontold 

common /winstuff/ hwnd 

integer*2 GetDC, ReleaseDC, SetTextColor, TextOut 
integer*2 GetStockObject, SelectObject 
This subroutine draws the "form," that part of 
the image does not routinely change. 


hdc = GetDC(hwnd) 

hfont = GetStockObject(16) 

hfontold = SelectObject(hdc,hfont) 


! 16 = SYSTEM_FIXED_FONT 
! Use that font 


istat = SetTextColor(hdc,#00000000) ! Black characters 

istat = Text0ut(hdc,10, 30,'ALCHEMY SIMULATION',18) 

istat = Text0ut(hdc,10, 50,'Blood: 1 ,6) 

istat = Text0ut(hdc,10, 70,'Sweat:',6) 

istat = Text0ut(hdc,10, 90,'Toil :',6) 

istat = Text0ut(hdc,10,110,'Tears:',6) 

istat = Text0ut(hdc,10,130,'Lead :',6) 

istat = TextOut(hdc,10,150,'Gold :',6) 

hfont = SelectObject(hdc,hfontold) ! Switch to default font 
is = ReleaseDC(hwnd,hdc) ! Return device context 
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and the coordinates to move or draw 
to. 

Switching pens is a matter of creat¬ 
ing a new one, selecting it, and then 
deleting the old one in order to avoid 
wasting resources. Each pen that you 
create consumes some space within a 
limited data segment inside Windows, 
and so you should call DeleteObject() 
to destroy the old pen after you select 
a new one. 

Finally, the "number of lines to 
draw" value that you entered at the 
top of the program comes into play. 
The pseudorandom number generator 
is used to randomly select positions 
around a circle of radius 120 pixels, 
centered at (x,y >=(320,180). After every 
100 lines have been drawn, three more 
random numbers are made and used to 
select a new color for the line drawing. 
This particular demonstration shows 
how very fast direct Windows API 
graphics can be, as the color ball seems 
to almost flash from one color to 
another while this loop runs. 

Drawing Forms 

alchemy.for (Listing 6) shows a 
mockup of an alchemy simulator: that's 
right, lead into gold. Well, okay, I admit that the inner details 
of the process haven't been fully worked out yet, but this 
“Potemkin Program 1 ’ shows what it might look like. In addition 
to lead, the process also requires blood, sweat, toil, and tears, 
in equal quantities. 

For simulation purposes, the program assumes that each of 
the ingredients arrives randomly (the call to RANDOM and test 
against 0.5 accomplish this), and that when the program has 
at least three units of each raw material, it starts processing 
and turns them into one unit of gold. Each type of raw 
material may or may not be delivered each second, and so 
the program calls GETTIM to pause until the next time inter¬ 
val. During the pause, it is advisable to include a call to 
YIELDQQ, the QuickWin routine that gives other processes in 
the system a chance to run-, this avoids hogging the CPU and 
slowing things down. 

alchemy.for uses two subroutines: DRAW_FORM, to write 
the fixed information on the screen (labels and the like), and 
DRAM_DATA, to write the changing numbers. Splitting things up 
like this allows the program to avoid rewriting the part of the 
screen that doesn’t change. 

The main problem is that, if a user resizes the window, the 
client area is blanked, so that the numbers keep appearing, 
but with no labels. As with a previous example, the program 
includes a repeating call to GetClientRect(). If any of the 
borders have changed, then the fixed part of the screen needs 
to be redone, and so a call to DRAU_F0RM follows. 

One difficulty that arises from direct calls to TextOut () is 
that the font used is proportionally spaced. This is fine for 
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applications like document formatting, 
where text needs to be stretched or 
squeezed to obtain justification, but it 
makes other things look a bit strange. It 
is unacceptable for a program that 
writes columns of numbers to have the 
digits wander from left to right, accord¬ 
ing to the character widths involved, so 
text emitted by QuickWin itself uses the 
same font, but in a fixed-pitch matrix. 

You can elect to use fixed pitch by 
including a call to GetStockObject (), 
which lets you grab standard pens, 
brushes, and fonts instead of creating 
them from scratch. Table 2 lists the five 
kinds of text available from GetStock- 
Object(). The symbolic names are 
those used in the Windows SDK file, 
windows.h, and are 16-bit quantities. In 
the example, passing a value of 16 
(equivalent to SYSTEM_FIXED_FONT) into 
GetStockObject() provides a handle to 
fixed-space bold characters of the same 
kind that QuickWin output uses. This is 
the best choice for status displays, 
where you do not want the text 
meandering back and forth. The handle 
returned by GetStockObjectf) i s 
placed into the device context via a call 


Listing 6 continued 

return 


end 


SUBROUTINE DRAW DATA 


common /matl/ nblood, nsweat, ntoil. 

ntears, nlead, ngold 

1nteger*2 hwnd, hdc, hfont, hfontold 


common /winstuff/ hwnd 


integer*2 GetDC, ReleaseDC, SetTextColor, TextOut 

integer*2 GetStockObject, SelectObject 

character*6 cbuf 


c This subroutine draws the variable data 

hdc = GetDC(hwnd) 


hfont = GetStockObject(16) 

16 = SYSTEM FIXED FONT 

hfontold = SelectObject(hdc,hfont) 

Load that font for use 

istat = SetTextColor(hdc,#00FF0000) 

Blue characters 

write (cbuf,40) nblood 


40 format (16) 


istat = Text0ut(hdc,60, 50,cbuf,6) 


write (cbuf,40) nsweat 


istat = Text0ut(hdc,60, 70,cbuf,6) 


write (cbuf,40) ntoil 


istat = Text0ut(hdc,60, 90,cbuf,6) 


write (cbuf,40) ntears 


istat = Text0ut(hdc,60,110,cbuf,6) 


write (cbuf,40) nlead 


istat = Text0ut(hdc,60,130,cbuf,6) 


istat = SetTextColor(hdc,#00007 F00) 

Dark Green characters 

write (cbuf,40) ngold 


istat = Text0ut(hdc,60,150,cbuf,6) 


hfont = Select0bject(hdc,hfontold) 

Return to default font 

is = ReleaseDC(hwnd,hdc) 

Give back device context 

return 


end 
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Table 2 Standard Fonts in GetStockObjectQ 

Symbolic Name 

Numerical Value 

Description 

0EM_FIXED_F0NT 

10 

Fixed pitch, mine is Serif 

ANSI_FIXED_FONT 

11 

Fixed pitch, like Courier 

ANSI_VAR_FONT 

12 

Proportional, like Helvetica 

SYSTEM_FONT 

13 

Proportional, bold face 

DEVICE_DEFAULT_FONT 

14 

Depends on device 

SYSTEM_FIXED_FONT 

16 

Fixed pitch, bold face 


If you have sound effects installed 
under Windows 3.1, using either an 
add-in hardware board or the Microsoft 
Speaker Driver (available free from the 
MS Download Service BBS, (206J-936- 
6 3 7 5), MessageBeep() will play 
whatever sound is associated with 
"Default Beep” on the sound effects 
menu. You can use this as a simple 
channel to your favorite . wav file, which 
can be emitted whenever it seems ap¬ 
propriate. 

Other Compilers 


to SelectObject(), just as was done with special pens in the 
earlier graphics example. 

Audio Output 

Under DOS, you can make the PC's speaker beep by simply 
printing the ASCII BELL character, CHAR(7), through an A1 for¬ 
mat. This can be useful if your program runs for some length 
of time and you want to be alerted to come back and look at 
the computer when something interesting has happened. 

If you try to do this under Windows, the CHAR(7) is trans¬ 
lated into a little square box in one of the character positions 
on the screen, and no sound is issued. Fortunately, there is an 
API routine, called MessageBeepO , that performs the same 
operation; a sample program to use this is in beep.for (Listing 7). 
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Several other Fortran vendors sell 
compilers that can make Windows executables. Salford 
Software's FTN77 has an add-on package called “ClearWin” 
that provides similar capabilities to Microsoft's QuickWin. 
Watcom's F77 also has a default windowing system (which 
apparently has no special name). 

Watcom allows programmers to create Windows programs 
from scratch by using their c$pragma declarations, which are 
comparable to Microsoft’s INTERFACE declarations and “square- 
bracket” attributes. Otherwise, windows are created using the 
OPEN statement, just as they are under QuickWin (except Wat- 
com expects FILE='C0N', rather than Microsoft's 
FILE= 'USER'). 

Salford, on the other hand, uses a set of subroutine calls to 
create and destroy windows. They also have a special routine 
that returns a handle to a video bitmap. If graphics are writ¬ 
ten to that handle, rather than to the actual window's device 
context, then resizing of the window will cause ClearUin() to 
repaint the client area automatically. This is essentially com¬ 
parable to Microsoft's QuickWin Graphics library, where the 
image is also stored in memory so that the package can auto¬ 
matically handle window repainting. 

There is no reason, in theory, why the default windowing 
system and direct API calls cannot be combined using either 
of these compilers, or other Windows-aware language pack¬ 
ages. 

Summary 

l have only scratched the surface in this article, and I invite 
you to try additional things yourself. Other users have dis¬ 
covered that they can make use of many more Windows API 
functions than this article presented. The first step to discover¬ 
ing which additional features are available is to use the 
librarian utility to make a listing of the entry points in the 
QuickWin package. The command 

LIB LLIBFEW.LIB, LLIBFEW.LIS 

will generate a good starting point for your explorations. The 
names that appear in all capital letters are the items to inves¬ 
tigate. 

Also, if you have an icon draw program and a resource 
compiler, then it is fairly simple to make icons for your own 
programs and then attach them to your QuickWin ex¬ 
ecutables. Both of these tools are in the Microsoft Windows 
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CHARACTER FILENAME*40 


Listing 7 beep.for - Audio output via 
MessageBeepO 



include 'winapi.for' 


c 

PROGRAM WIN$BEEP 
implicit integer*2 (a-z) 


c 

word=0 
do i=1,10 

! Nice long beep 


call MessageBeep(word) 



enddo 


c 

stop 



end 



SDK, but there are other comparable items around: PC 
Magazine once published an icon draw utility named IKE, and 
Watcom now has a resource compiler, called WRC. 

Since I prefer to use easy-start packages, such as QuickWin, 
I hope that Microsoft and the other vendors continue to add 
simple-to-use features. One item for the wishlist would be a 
QuickWin subroutine that would pop up a dialog box contain¬ 
ing a directory. The user could then select a file which would 
be returned, complete with drive letter and directory name, in 
a CHARACTER buffer. The buffer contents could then be used to 
open a file, and would form the Windows equivalent of the 
conventional code: 


PRINT 20 

20 FORMAT (' Enter input file name ->',$) 

READ (*, 1 (A) 1 ) FILENAME 
IF (FILENAME.EQ.' ') STOP 
OPEN (UNIT=n,FILE=FILENAME, ...) 

It's generally ackowledged that message-passing using Dynamic 
Data Exchange (DDE) is very complicated. Many of the truly ugly 
aspects of Windows could, and should, be covered up by con¬ 
venient interfaces. A number of operating systems of the past, 
such as DEC'S RSX-11M, allowed messages to be sent from one 
executing task to another with simple calls, such as 

CALL SEND(addressee, message) 

and 

CALL RECV(sender, message) 

which are considerably simpler for use by those of us who are 
not systems analysts. It would also be useful if there were a 
method of adding a secondary callback function which would 
be invoked if the main (concealed) function received a mes¬ 
sage it didn't understand. There is a great amount of 
functionality within Windows, but it could be made much 
more accessible. □ 
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Applications that communicate with databases have traditionally been developed 
to work with a single DBMS. As the database world moves to a client/server model, 
there is a growing need to connect front-end applications to as many data sources 
as possible -ISAM, VSAM, relational, hierarchical, flat file, and so on. Microsoft's Open 
Database Connectivity (ODBC) specification provides a common API which is vendor- 
neutral and gives any ODBC-enabled front-end application equal access to most 
databases. ODBC is based on the SQL Access Group's (SAG) Call-Level interface 
specification. SAG is an industry body composed of over 40 database industry 
leaders. Like ODBC, the SAG CLI is a specification designed to provide a common 
interface to DBMSs from multiple vendors. ODBC provides extensions to the SAG CLI 
which will be submitted back to SAG for consideration as part of a future specifica¬ 
tion revision. 

ODBC is not a cure-all. Today, neither ODBC nor SAG CLI eliminates the need to 
install vendor-specific client-to-server protocols on each workstation for each DBMS 
accessed from that workstation. Generic protocols may eventually emerge from the 
standards bodies. However, from the application's point of view, few changes will be 
required. The API is likely to remain stable while the underpinnings change. 

Although ODBC-compliant tools and applications can be considerably more dif¬ 
ficult to develop than similar tools and applications designed to work with a single 
DBMS, using ODBC dramatically reduces the development effort required to support 
multiple DBMSs. The reason is simple: much of the work previously performed by 
the front-end developer has been shifted to the back-end developer. Under the 
ODBC paradigm, back-end vendors provide an ODBC interface for any of the front-end 
operating environments they wish to support. Then, any ODBC-compliant front-end 
tool or application on that platform is immediately compatible. 

As usual, there is no free lunch for front-end application developers. To take 
advantage of ODBC, they must build their applications to adapt automatically to the 
varying capabilities of DBMS back-ends. Applications can test an ODBC-enabled DBMS 
for support of critical features. If a necessary feature is missing, the application must 
decide whether to refuse to work with the database or to reduce its functionality to 
a level supported by the driver. 

This article discusses ODBC from the perspective of a driver developer. It is based 
on experience gained developing PageAhead's Simba Interface for ODBC and Simba 
SQL Engine for ODBC, which are designed to help software vendors quickly and effi¬ 
ciently develop ODBC drivers which access their open and proprietary data formats 
from custom and “off the shelf’ applications and development tools. 
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with data sources in desktop and server environments. Mike has been an active 
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of Science degree from the University of British Columbia, with a major in Physiological 
Psychology and a minor in Computing Science. Mike lives in Seattle with his wife 
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ODBC Architecture 

Database independence using ODBC is achieved through 
ODBC database drivers. Drivers are loadable code resources 
and are usually managed by the host operating environment. 
Under Windows, ODBC drivers are implemented as Windows 
Dynamic Link Libraries (DLLs). Under System 7 on the Macin¬ 
tosh, drivers will be implemented as Shared Library Manage¬ 
ment System objects. In any case, an ODBC driver is a program 
component that maps the ODBC API and SQL syntax to the 
DBMS-specific database engine or file system. Since drivers are 
loaded on demand by the front-end program, any driver that 
conforms to the ODBC specification can be loaded by any 
ODBC-compliant application. 

ODBC database drivers perform a function analogous to 
Windows printer drivers. Although printers differ in significant 
ways from each other (laser, dot matrix, ink jet etc.), printer 
drivers mask the differences and allow Windows applications 
to take maximum advantage of the capabilities of any printer 
without burdening the application developer with the need to 
address the specific characteristics of each printer. Today, 
even though printers continue to vary widely in their native 
capabilities and programming interfaces, virtually all printers 
are shipped with a Windows printer driver and most 
developers program to the Windows printer interface. While 
database connectivity is an inherently more difficult problem, 
the same concept of device independence applies. 

ODBC-compliant database applications use SQL (Structured 
Query Language) to interact with data from a database. The 
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SQL statements are transmitted from the application to the 
database driver and results are retrieved from the driver using 
ODBC's Call-Level Interface — the ODBC API. Applications can 
use compiled-in SQL statements or build SQL statements on 
the fly to respond to users' ad-hoc requests for information. 
ODBC provides standards for: 

• Connecting and logging on to the database. 

• Retrieving, inserting, modifying, creating, and deleting 
database objects. 

• Returning status and error messages. 

• Handling diverse data types. 

ODBC Component Layers 

There are four basic component layers in the ODBC Ar¬ 
chitecture, as shown in Figure 1. 

Application Layer 

Most database applications do not require that the end- 
user know SQL. Instead, the application translates a user's 
graphical and textual input into ODBC SQL and uses the ODBC 
API to interact with the database via the Driver Manager. ODBC 
applications can range from simple query tools to complex 
transaction-oriented systems. 

Driver Manager Layer 

The Windows Driver Manager is provided by Microsoft and 
will eventually become a standard part of the Windows 
operating environment. Apple will add a Driver Manager to 
System 7, and other vendors will offer variants for their own 
operating environments. The Driver Manager deals with the 
system-specific management tasks associated with installing, 
loading, and unloading drivers. Since applications may connect 
to several DBMSs at once, the Driver Manager is designed to 
handle multiple connections to multiple drivers for several 
concurrently-running applications. The Driver Manager also 
performs limited parameter and state checking before passing 
control to the driver. The driver manager does not intercept or 
alter in any way results returned from the driver to the ap¬ 
plication. 

DBMS Driver Layer 

Database drivers do the real work of ODBC. Essentially, an 
ODBC driver accepts and validates all ODBC API calls and either 
handles the call itself or relays the request to another local or 
remote process. The work performed by a driver is discussed 
in greater detail below. 

Data Source Layer 

The Data Source Layer is the database file system or DBMS 
engine. This is where the data is stored and/or managed on 
behalf of the application. Example data sources include: 

• A database consisting of a local file or related group of files 
(e.g., a Microsoft Excel file, a group of related dBASE files). 

• A file or related group of files located on a file server (e.g., 
Btrieve files on a Novell file server). 

• An intelligent DBMS server on a network (e.g., Ingres run¬ 
ning on a SCO UNIX host). 

• A gateway server that accepts requests from applications 
and forwards them to one or more DBMSs via a single 
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gateway (e.g., Apple DAL gateway running on a Macintosh 
AU/X host connected via SQL'NET to a remote VAX VMS 
host running Oracle). 

Support for SQL and non-SQL Databases 

ODBC defines two types of drivers: single-tier and multi-tier. 
A single-tier driver is self-contained. All of the logic (including 
an SQL interpreter and database engine) necessary to handle re¬ 
quests from the front-end application resides in the driver itself. 

For the purposes of this discussion, I assume that all single¬ 
tier drivers will be implemented for non-SQL DBMSs and all 
multi-tier drivers will support SQL databases. This is not al¬ 
ways true; however, most non-SQL databases can be mapped 
into the single-tier architecture shown here. The calling ap¬ 
plication accesses the database through ODBC using SQL com¬ 
mands. Therefore, an SQL interpreter must be part of any 
ODBC driver for a non-SQL database. The driver must interpret 
the SQL, and either perform the request directly itself or trans¬ 
late it to the appropriate commands for some external, non- 
SQL database process. 

In contrast, a multi-tier driver relies on one or more intel¬ 
ligent processes external to the driver to perform some of the 
work. Typically, a multi-tier driver is connected to a database 
or gateway that can process SQL requests. 


Avoiding the “Least-Common-Denominator” 
Problem 

Independent of whether they are SQL or non-SQL im¬ 
plementations, DBMSs differ widely in scope and power. 
Similarly, database applications have widely varying database 
engine requirements. The designers of ODBC were aware of 
the least-common-denominator problem facing developers of 
any uniform API. A least-common-denominator approach 
would allow most DBMSs to be supported equally, but would 
ignore the more advanced features found in many. An alter¬ 
native approach might have been to provide ODBC connec¬ 
tions to only those databases which had more advanced 
capabilities. 

Instead, ODBC seeks to match the power of a DBMS to the 
requirements of the application through the concept of driver 
capabilities and conformance levels. All drivers must imple¬ 
ment a minimum specified level of functionality. Beyond that, 
if the underlying DBMS can support enhanced features, or if 
advanced features can be implemented by the driver, the 
driver can declare those advanced capabilities to the calling 
application. Features are clustered into "conformance levels" 
for both degree of API implementation and level of SQL sup¬ 
ported. 

The idea that applications should adapt at runtime to dif¬ 
ferent DBMSs is relatively new. Applications written to work 
with a single database do not need to ask about the 
capabilities of the database since this knowledge is implicitly 
available to the programmer at development time. A 
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fully compatible with UNIX systems, and tracks both POSIX and */Open standards. 

Start shaping the applications of the future! Call now to order your copy 
of MKS Toolkit. 
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developer writing to a specific DBMS can also be sure that 
those same capabilities will always be present (DBMS 
developers rarely remove features from a product!). An ODBC 
application, in contrast, must adapt itself according to features 
(or capabilities) available in the DBMS that it happens to be 
connected to at the moment. Since it is not possible to 
emulate all the database features that might be missing in a 
driver or front-end application, ODBC takes the approach that 
the front-end developer (and not the driver developer) should 
make design and implementation decisions regarding applica¬ 
tion behavior when certain DBMS features are unavailable. 

API Conformance Levels 

An ODBC driver need not support all of the ODBC API func¬ 
tions. In fact, no drivers to date fully im-. 
plement the specification. The ODBC API 
is grouped into three sets of functions: 

Core, Level 1, and Level 2. All drivers 
must support the Core API which is 
equivalent to the SAG CLI API. Applica¬ 
tions may test for whether a driver sup¬ 
ports Level 1 and Level 2 functions. To 
be considered conformant at a given 
API conformance level, a driver must 
support all of the API functions at that 
level. Driver developers may choose to 
partially implement the function set at 
a given level, so applications can ask 
drivers if they support a specific 
capability. 

Core API 

Ail drivers must implement the Core 
API, and all applications can assume, 
without testing, that the Core API is avail¬ 
able. In practice, only the most basic ap¬ 
plications can be developed around the 
Core API. Core capabilities include: 

• Connect and disconnect from the 
database 

• Prepare and execute SQL statements 

• Map parameters and result sets to 
and from user storage 

• Commit and rollback transactions 

• Retrieve error information 

Level 1 API 

Most applications that implement 
any significant level of interactivity with 
the user will employ functions from the 
Level 1 group. To date, most commer¬ 
cially available drivers have been imple¬ 
mented to this level. Level 1 adds the 
following capabilities to the Core API: 

• Connect to the DBMS using DBMS- 
specific dialog boxes 

• Get basic system catalog information 
(tables, columns, special columns, 
statistics) 


• Get driver capabilities (API and SQL levels, data types, scalar 
functions) 

• Send and retrieve long parameter and result values (BLOBs) 

• Get and set statement and connection options 

Level 2 API 

Advanced applications, especially those that seek to provide a 
highly interactive view of a database, will take advantage of Level 
2 functions, if they are available. The Level 2 functions include the 
Core and Level 1 API and provide the following additional 
capabilities: 

• Browse available connections and data sources 

• Send and retrieve arrays of parameter and result values 


Fast, Full-Featured SQL Engine for Windows 

Ideal for mobile computing as an extension to Client/Server systems 
and applications that run on small to medium sized LAN fde servers. 
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Quadbase-SQL for Windows v2.0 is an industrial-strength SQL relational database 
engine, bundled with a set of powerful tools, that allows Windows developers to build 
applications using various languages like Visual Basic, Realizer, Toolbook, 
SQLWindows, C, C++, ObjectView, etc. A unique language-independent embedded SQL 
interface included with the system makes using any Windows language easy. The SQL 
engine, implemented as a DLL, is fully ANSI SQL 86 level 2 compliant, and supports the 
Microsoft ODBC standard, which provides seamless, object-oriented access from Visual 
Basic v2.0. Extensions include referential integrity, scroll cursors, and outer join, along 
with other advanced features such as multi-user concurrency control, crash recovery, 
transaction processing, multiple instances, BLOB data, and read-only schemas for CD 
ROMs. The engine is very fast and compact, and is especially designed to manage large 
amounts of data efficiently. Visual Basic development is enhanced by embedded SQL and 
custom controls for browsing and data entry. dQUERY, an award winning query tool/report 
writer, and VBQUERY, an interactive query tool for Windows, are included for quick 
prototyping of SQL statements. A ‘C language API is also provided together with an 
embedded SQL preprocessor. The native file format is dBASE. This product is ideal for 
small to medium sized LAN file servers, notebook, or pen-based systems. Users can benefit 
from advanced relational database features while opening a migration path to SQL servers. 

Quadbase Systems Inc. 

790 Lucerne Dr. #51 
Sunnyvale, CA 94086 
Tel: (408) 738-6989 
Fax: (408) 738-6980 


Call for a free demo disk now. 
Find out why AT&T, Hewlett 
Packard. Nike, EPA, GE and 
many more major organizations 
use Quadbase products. 
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Introducing 
Remind Me!" 
for Windows 

The easy and 
fun way 
to remember 



and deliver messages at 
the day and 
time you select. 
You choose 
from over 
20 images of 


important events. 

Animated Looney Tunes 
characters bring 
your multi-media 
computer to life. Plus 
actual cartoon sound 
tracks. This powerful 
agent can automatically 
load files, run programs, 



Bugs and all his pals that 
burst onto the screen - 
you'll never again miss an 
important event. 


REMIND ME! 
* does lots more, 
So,see your 
software dealer, 
or call us toll-free: 
I -800-VLOCITY. 


Dental 
appointment 
tomorrow. 
Don't forget 
to floss. 



£ i- O C / T V 

© 1993 Velocity'. All rights reserved. 
Velocity and Remind Me! are trademarks of 
Velocity Development Corporation. Looney 
Tunes, characters, names and all related indicia 
are trademarks of Warner Bros. © 1993. 


• Retrieve parameter count and 
describe parameters 

• Use scrollable cursors to browse and 
update 

• Get enhanced catalog information 
(privileges, keys, procedures) 

• International character support 

SQL Conformance Levels 

ODBC drivers may differ in the level 
of SQL they support independent of the 
API conformance level. ODBC provides 
for three levels of SQL conformance. 
Higher levels provide more fully imple¬ 
mented Data Definition and Data 
Manipulation Language (DDL and DML) 
support. An ODBC driver must provide 
all SQL capabilities within a given level 
in order for a driver to be considered 
conformant at a given level. However, it 
is possible and common for drivers to 


partially implement SQL grammar but to 
provide more extensive data type sup¬ 
port than would otherwise be neces¬ 
sary at their conformance level. ODBC 
provides extensive capabilities for ap¬ 
plications to determine the data types 
supported by a driver. In addition, some 
features provided in the Extended SQL 
Grammar, such as support for outer 
joins, can be individually tested for by 
the application. 

Minimum SQL Grammar 

ODBC applications may assume that 
all drivers support the Minimum SQL 
Grammar: 

• CREATE and DROP TABLE 

• Simple SELECT, INSERT 

• Searched UPDATE and DELETE 

• Simple expressions (A * B + Q 

• CHAR data types only 


Figure 1 ODBC architecture 


ODBC ARCHITECTURE 


Applications 



Copyright 1993 PageAhead Software 
Corporation. 
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COMM-DRV™ 

COMM-DRV is a professional serial communication library for Windows and MS-DOS. In addition to the libraries, it 
i comes with an extensive set of utilities, including a true Windows replacement driver, a true MS-DOS device driver, 
several TSRs, DLLs, debugging monitor, and much more. COMM-DRV may be used with any Language, any Tool, any 
Database Language/Environment, and any Application. Do not be fooled by false claims. COMM-DRV will be the only 
serial communication development tool you need. When you purchase COMM-DRV. you inherit a team of experienced 
professional software engineers to help in your design. And you get a 30 day money back guarantee. 

"Serial communication is at the core of what we do, and COMM-DRV has helped us rapidly develop new applications, and easily add 
multiple port features. We've been very impressed with the flexibility of COMM-DRV, and the technical support has been outstanding." 

Lee Perryman, Deputy Director and head of technology development, Associated Press Broadcast Services, Washington, DC 

• Transparent support for several smart cards(Amet Smartplus series. 

Digiboard COMXi, PCXi, PCXm, PCXe). 

• Support for all dumb mulitport boards on the market. 

• Asynchronous callback to user functions on different serial communica¬ 
tion events(modem signals, buffer count, character reception and much 
more). 

• Timed asynchronous callbacks to user functions. 

• X, Y, & Zmodem on multiple ports concurrently. 

• Complete source code to all libraries. 

• Unlimited number of ports active concurrently. 

• Real time serial port monitoring to screen and disk. 

• Quickbasic, Visual Basic, C, Visual C++, Assembly, Microsoft Access 

1 examples. 

• Hardware/Software Flow Control. 

• Interrupt 14H/FOSSIL/EBIOS replacement. 

• One API to leam (Same for Windows & MS-DOS). 

• 100% Port re-entrant codeflmportant for multitasking). 

• Desqview®, Procomm® Windows, PCBoard® BBS PcAnywhere® com¬ 
patible. 

• Integrate with any database tool, language, or application without writing 
any serial communication code. 

• ANSI/BIOS screen management utility. 

• TSR to redirect serial data to keyboard buffer, transparent to user 
application(Great for barcode & POS apps). 

• High level Hayes compatible modem support. 

• True Windows comm device replacement. Use your favorite Windows 
communication applications on all multiport cards we support. 

• True DOS device driver that allows serial ports to be opened as normal 

files under MS-DOS or Windows. * 

• Transmit data from user callback on any event(Important for multidrop 
applications). 

• 8250/16450/16550 Auto detection/Up to 115200 baud. 

• Remap baud rates/Change baud rate divisor. 

• Product customization. 

COMM-LOG™ 

Group of cooperating programs and TSRs for developing 
serial applications quickly and efficiently. Programs and 
TSRs may be called directly from applications by shelling 
to them or by using a "C" API. Alternatively, applications 
may be built entirely with English like scripts. 

COMM-LOG Features: 

• TSR that log serial data to disk entirely in the background concurrently 
; on any number of ports. Data may be extracted from the file while 
| logging is in progress. 

• TSR to perform X/Y/Zmodem file transfers entirely in the background 
concurrently on any number of ports. 

• Full featured script engine that can function standalone or that may be 
( called from a user application. Scripts may be run in the background. 

• Extensive set of examples. 

MTASK™ 

Multitasking kernel used in the development of multi¬ 
threaded applications and TSRs that run in the background. 

Its used commercially to create background TSRs for fax, 

communication, data acquisition, and many other applica¬ 
tions. All tasks may call DOS functions. 

MTASK Features: jj 

• Create and destroy tasks dynamically. 

• Put tasks to sleep for specific duration. 

• Send/receive messages between seperate threads in application and/or 
between TSRs running in the background. 

• Re-entrant libraries that include functions that make creating TSRs as 

easy as a C or Assembly function call. j 

• Extensive set of example that show the ease of writing TSR that run 

entirely in the background. jj 

COMM-DRV.S189.95 

COMM-LOG.SI89.95 

MTASK.S299.95 

COMM-DRV, MTASK Combo.S399.95 

COMM-DRV, MTASK, COMM-LOG Combo ... S499.95 

Company: WCSC 

Address: 2470 S. Dairy Ashford Suite 188, 

Houston, TX, 77099 

Telephones: 1-800-966-4832 

713-498-4832 

Fax 713-568-3334 

BBS 713-568-6401 

Visa/Mastercard/American Express/Optima 
P.O./Checks/Wire transfers 

| 4 Port Multiport Card(16450).SI 10.00 

4 Port Multiport Card(16550A).S170.00 

8 Port Multiport Card(16550A).S225.00 
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Figure 2 Simba ODBC Driver Tools for Windows Architecture 
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SQL DBMS Server Network Transport 




SQL DBMS Server 




DBMS Server Files 



Database Server, e.q. Oracle, Sybase, etc. 


Single Tier Driver & DBMS Multi-Tier Driver 

Note: Driver components surrounded by "asterisks** are provided by driver developer. 

Copyright 1993 PageAhead Software Corporation. 


Note: The lower driver layers contain the most DBMS-specific code. The diagram shows functional units for single-tier and 
multi-tier drivers at the bottom left and bottom right, respectively. 
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Core SQL Grammar 

ODBC applications may test for enhanced SQL grammar 
support. In addition to Minimum SQL, a Core SQL driver must 
support more advanced DDL and DML syntax, including: 

• ALTER TABLE 

• CREATE and DROP INDEX 

• CREATE and DROP VIEW 

• GRANT and REVOKE 

• Full SELECT, including sub-queries (i.e., nested SELECTS) 

• Positioned UPDATE and DELETE (moving to Extended SQL in 
the ODBC version 2.0 specification) 

• Set functions (SUM, MIN, MAX, AVERAGE, etc.) 

• Additional data types: VARCHAR, DECIMAL, NUMERIC, SMAL- 
LINT, INTEGER, REAL, FLOAT, DOUBLE 

Extended SQL Grammar 

Extended SQL drivers provide the ODBC application with access 
to the capabilities of the most powerful SQL engines. In addition 
to Minimum and Core SQL, Extended SQL drivers provide: 

• Outer joins 

• Numeric, string and date/time functions (ABS, LTRIM, CURDATE, etc) 

• Date, time, and time stamp literals 

• Extended data types: LONG VARCHAR, BIT, TINYINT, BIGINT, BI¬ 
NARY, VARBINARY, LONG VARBiNARY, DATE, TIME, TIMESTAMP 

• Stored procedure calls 

• Batch SQL statements 


ODBC Driver Components 

The designers of the ODBC specification set out to allow all 
of the underlying power of any DBMS to be accessible through 
a common API. Whether or not this goal is achieved will in 
large part be determined by the quality of the ODBC driver 
implementation. Because no two DBMSs are the same and not 
all could be considered as the specification was written, driver 
developers must interpret the specification and make im¬ 
plementation choices as they proceed. Even so, since all 
drivers implement a standard API and functionality, they can 
be expected to have many components in common. Figure 2 
shows the major functional sub-units of an ODBC driver. 

Common Driver Components 

The following sections describe functional components that 
must be implemented in all drivers. 

ODBC API and Parameter Checking 

There are 54 ODBC functions —23 Core, 15 Level 1, and 16 
Level 2. The first step to take in creating a driver is to define 
the API entry points for the desired API implementation level. 
Since the driver manager does relatively little parameter 
checking, it is critical that the driver consistently perform 
robust parameter error trapping. 

A typical entry point definition is shown below. 

SQLTables(hStmt, szTableQualifier, 
cbTableQualifier, szTableOwner, 
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Windows Sockets, 
RPC/XDR, 
Telnet, FTP... 


for Windows 
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Windows Sockets, Berkeley Sockets 
Kernel, RPC/XDR, FTP and Telnet 
toolkits ... all in one 
100% DLL (uses only 4K DOS memory) 
Uses less memory than any other DLL or 
TSR implementation even when loaded 
Up to 128 concurrent sockets 
Coexists with Novell, Banyan or LAN 
Manager at no additional cost 
Supports NDIS, ODI and Packet drivers; 
SLIP and PPP with scripting 
TCP Tools: FTP (drag and drop), TFTP, 
Telnet, LPR/LPD, Back-Up with TAR 


fastfacts: 408.867.4742 
fax: 408.741.0795 

email: mktg@distinct.com 


distinct 

408.741.0781 
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RS232-Toolkit, SuperCom 2.1 
for DOS, Windows and OS/2 

for MS C/C++, Visual C++, Turbo/Borland C/C++, 
Turbo/Borland Pascal, Visual Basic 


SuperCom is the development tool for exacting serial communi¬ 
cation software. That means high data security and highest trans¬ 
mission speed. The SuperCom libraries are fast even in a multi¬ 
tasking operating system like Windows or OS/2. 

The same programming interface is used among different 
languages and operating systems. 


• Interrupt driven: transmission, reception, linestatus, 
modem status. Up to 115,200 bps. 

• UARTS: 8250.16450.16550 FIFO, any port address. 

• Simultaneous COM_1..COM_32 (and unlimited). 

• Direct register programming. Interrupt-Sharing. 

• Flow control: RTS/CTS, DTR/DSR, XON/XOFF and 
user defined. 

• Protocols: ASCII, XMODEM, XMODEM/CRC. 

• Timer, Ctrl-Break and Exception handling. 

• Multitasking support (Windows,OS/2) 

• Protected Mode Interface. 386-Technology. 

• Language independent DLL (Windows.OS/2) which 
can be used for simultaneous transfers by 
applications. 


• Multiserial board support (AST, ARNET, DigiBoard 
PC/X, STARGATE) Reduces loading of CPU 
through support of intelligent DigiBoard PC/Xe, 

PC/Xi boards. 

• Modem support. 

• No resident drivers. Just link the LIB to your Program. 

• No Royalties. 

• FREE technical support. 

• Full source code (C or Pascal and optimized ASM). 

• DLL interface for VisualBasic (Windows) included. 

• SuperCom++ (C++ or Pascal OOP) included. 

• Protected Mode Interface (Windows) included. 

• C package (MS C/C++. Borland C/C++ VisualBasic). 

• Pascal package (Turbo Pascal, VisualBasic). 


C/C++ or Pascal package for DOS $320 

C/C++ or Pascal package for Windows $430 

C/C++ or Pascalpackage for DOS + Windows $570 
C / C++ package for OS / 2 $430 

C/C++ package for DOS+Windows+OS/2 $880 
VISA, MC, COD, Check accepted. 

Support for Windows NT coming soon 



ADONIS Micro-Software 

Hoelderlinstr. 32 

D-75433 Maulbronn, Germany 

Phone: 49-7043-40449 
FAX: 49-7043-40440 


Fine Line International 
7000 Malone Rd, Forestville 
CA 95436, USA 

Phone: 1-707-887-3400 
FAX: 1-707-887-1015 
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cbTableOwner, szTableName, 
cbTableName, szTableTypes, cbTableTypes) 

The SQLTobles() function retrieves a list of database table 
names. Some of the requisite parameter-checking steps are: 

• Verify that hStmt (the statement handle) is valid 

• Clear all previous errors assigned to this statement 

• Check for two special cases (a certain pattern of 
parameters that allow a person to enumerate owners or 
qualifiers) 

• Check the qualifier, owner, and table name strings to en¬ 
sure that they aren't too long for this driver's target DBMS 
(e.g., Oracle has a 30-character limit for identifiers). Table 
names may include wild cards and wild card escape char¬ 
acters, which make the length measurement non-trivial. 

• Parse the table type string for validity — it is a series of 
single, quoted, comma-separated values which specify the 
table types youd like to see. 

Vendor String Preprocessor 

As yet, there is no standard syntax for date and time for¬ 
mats, scalar functions, outer joins, and procedure calls across 
all SQL databases. ODBC defines a limited but uniform SQL syn¬ 
tax for these non-standard extensions. Drivers must parse the 
SQL statement for “vendor strings" and emit SQL which will be 
valid for the target SQL engine. 

For example, say the user of a query tool asks for the 
names of all employees who have been hired since January 1 
1990. An ODBC-enabled query tool would translate the user 
request into the following ODBC SQL statement: 

select first_name,last_name 
from emp where 

hire_date > {d '1990-01-01'} 

The ODBC driver parses the vendor string, in this case “{d 
'1990-01-01'}", and determines from the “d” that it is an ODBC 
date literal. The driver then generates SQL appropriate for the 
target DBMS. For example, an Oracle driver would emit 

select first_name, last_name from 
emp where hire_date > '01-JAN-90' 

while a Sybase driver would emit: 

select name, hire_date from emp 
where hire_date > 'Jan 1, 1990' 

Although the concept is simple, the implementation can be 
complex. Vendor strings can be nested, and can contain ex¬ 
pressions as part of their syntax. The following example shows 
the vendor-neutral ODBC SQL that might be emitted by a 
front-end application that wants to retrieve a first name fol¬ 
lowed by the last name, all in upper-case: 

select { fn UCASE( {fn C0NCAT( 
first_name, last_name)}} from emp 

For Oracle, the equivalent SQL would be: 


select UPPER(first_name || last_name) from emp 

For Sybase, the equivalent SQL would be: 

select UPPER(first_name+ last_name) from emp 

Greater differences between DBMSs are seen in outer join 
syntax. To select all employees and their respective depart¬ 
ment names, including employees who are not assigned to a 
department, the front end creates an ODBC SQL statement as 
follows: 

select FIRSTJAME, LAST_NAME, dept_name 
from {oj emp LEFT OUTER JOIN dept 
ON emp.dept_no = dept.dept_no} 

The equivalent ANSI SQL-2 SQL is: 

select FIRST_NAME, LAST_NAME, dept_name 
from emp LEFT OUTER JOIN dept ON 
emp.dept_no = dept.dept_no 

An Oracle driver would create: 

select -FIRSTJAME, LAST_NAME, 
deptjname from emp, dept where 
emp.dept_no = dept.dept_no (+) 
whereas for Sybase the statement would be: 

select FIRSTJAME, LASTJAME, 
dept_name from emp, dept 
where emp.dept_no *= dept.dept_no 

Catalog and Meta-Data Management 

Most DBMSs implement some form of data dictionary or 
system catalog which provides front-end applications with in¬ 
formation about the structure and content of the database. 
ODBC extends the data dictionary concept so that an applica¬ 
tion can also obtain information about the capabilities of the 
DBMS and its driver. Both types of information are provided in 
a uniform manner to the application. 

The data dictionary contains the names of database tables, 
descriptions of the columns in those tables (name, data types, 
number of digits or field length, etc.), indexes and keys main¬ 
tained on the tables, and user access rights. ODBC applications 
can call several API functions to determine the names and 
characteristics of database objects. The most basic operations 
are finding the database table names and getting information 
about the columns that reside in a table. Catalog information 
is returned to the calling application in the form of tables. 
Drivers can provide extensive data type information to ap¬ 
plications. This information is also returned in the form of a 
table as if it were derived from the DBMS rather than from the 
driver. Uniform handling of meta data from the DBMS and the 
driver simplifies implementation of both driver and application. 

Since there are no standard ways of storing or retrieving data 
dictionary information across all DBMSs, drivers use DBMS-specific 
techniques to fulfill the requests. The “ODBC-to-DBMS Mapping” 
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Table 1 Sample type conversions with return codes 

Value 

From 

To 

Result code 

143000 

DOUBLE 

LONG 

Success 

143000.7 

DOUBLE 

LONG 

Truncation (a warning because 
you only lost information to the 
right of the decimal). 

143000 

DOUBLE 

SHORT 

Out of range (an error). 

1430000.123 

DOUBLE 

DECIMALS 0,2) 

Truncation warning as above. 

143000.123 

DOUBLE 

DECIMALS,2) 

Error. Information to the left of 
the decimal was lost! 

“143000.123” 

CHAR 

DECIMAL! 10,2) 

Truncation (info lost on right) 

“143000.100" 

CHAR 

DECIMALS 0,2) 

Success because the lost trailing 
digits were all zeros and 
therefore not significant. 


section below describes how the 
specific information is obtained from a 
given DBMS. 


Type Conversion 

ODBC drivers must be able to con¬ 
vert from a variety of C data types to 
every SQL type supported by the driver, 
and vice versa. For dynamic parameters 
in a SQL statement (values which are 
not embedded in the SQL statement it¬ 
self), the application emits a SQL state¬ 
ment with placeholders for the data 
and then supplies the data to the driver 
in a buffer containing a C data type. The 
driver must convert the contents of the 
buffer into an appropriate SQL type sup¬ 
ported by the target DBMS. For retriev¬ 
ing data, the DBMS returns results to 
the driver in a driver-specific SQL for¬ 
mat. The driver must then convert it into the C type and place 
the data in an application buffer. 

Applications may call an API function ( SQLGetTypeInfo()) 
to determine the types supported by the driver. While im¬ 
plementing the conversions is not complex, error trapping re¬ 
quires careful attention to detail. Table 1 shows some ex¬ 
ample conversions, with return codes. 


State Management 

Most ODBC database operations require that the front-end 
application call several driver entry points in correct sequence. 
For example, to execute a SELECT statement, the application 
calls SQLExecDirect() to transmit the statement to the driver, 
SQLFetch() to check for results, and SQLGetData() to retrieve 
results. Drivers must operate correctly for all valid calling 
sequences as defined in the ODBC specification, and must 
reject invalid sequences. An ODBC driver can track the calling 


TUB Version Control 

For DOS, OS/2 and Windows-NT 

• The experts loved TUB 4: 

“...amazingly fast... TUB is a great system. ” PC Tech Journal 

“TUB has features and power to spare... TUB is easy to use and 
the fastest of the reviewed packages. ” Computer Language 
“/ will not program without it. ” Uptime Magazine 

• Now TUB 5.0 adds: 

Automatic branching. Automatic version labeling across branches. 
User defined promote structures, for staged development. Exclusive 
whole-level change migration for customized software. N-way-tree 
version numbers. Branch and full locking. OS/2 & NT support. 


• Plus the features they loved in TUB 4: 

Check-in/out locking. Branching, for parallel development. Keywords. 
Full binary file support (does not depend upon CRs in the file like other 
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sequence with a state machine. The ODBC specification defines 
driver states before and after API functions are called success¬ 
fully, and defines the state the driver must enter under a 
wide variety of operating and error conditions. Some of the 
state transitions required to implement the SQLExecute() API 
function include: 

• The statement handle must have been previously allocated 
by a call to SQLAlloc(), placing the statement handle in 
state SI (Allocated). Note: A statement handle uniquely 
identifies each SQL statement operation. 

• The statement must have been prepared by a previous call 
to SQLPrepare() to parse the SQL statement and generate 
the access plan for execution of the query. When called, 
SQLPrepare () will, after correct operation, set the current 
statement state to S2 (Prepared). Calls to SQLExecute() 
must be denied unless the driver is in state S2, since 
without an access plan, a statement cannot be successfully 
executed. 

• If SQLExecute() receives SQL_DATA_AT_EXEC as a 
parameter, the actual execution is delayed until SQLParam- 
Data() and SQLPutData() are called. A state is set for the 
current statement indicating that the data will be provided 
when these other functions are called. 

Error Handling 

ODBC defines a comprehensive set of error return codes 
and text associated with those codes. This makes it easier for 
front-end developers to build consistent responses to certain 
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classes of errors into their applications, independent of the 
target DBMS. In addition to returning the correct code, the 
driver must enter the execution state specified by the ODBC 
specification. Driver developers must map the error-coding 
system of the DBMS into the ODBC error-coding system. Errors 
can be “stacked," permitting front-end applications to provide 
levels of error detail to the user. 

Errors may also occur in the ODBC driver itself. These in¬ 
clude invalid parameter errors, improper vendor string syntax, 
type conversion errors, improper state transitions and calling 
sequences, and memory and file system errors. Beyond these 
common errors, drivers may encounter DBMS-specific 
problems. 

In a single-tier driver, all error conditions occur in the 
driver, since the driver contains the SQL engine. However, the 
SQL engine must return diagnostics that will be helpful to a 
user knowledgeable about the database implementation. For 
example, a dBASE driver expects to find a database table 
stored in a .DBF file. The driver should report an error if an 
improper file format is encountered in such a file. 

in a multi-tier driver, error conditions may arise in the ex¬ 
ternal SQL engine. For example, an unknown table name 
provided in a syntactically correct SQL statement cannot be 
detected by the driver prior to submission of the statement to 
the DBMS. In this case the driver must map the DBMS-specific 
error code returned from the DBMS to an ODBC-specified error 
code. In Oracle, an attempt to select on a table that does not 
exist causes the server to return the code 942. A similar at¬ 
tempt in Ingres would return -30100. The respective drivers 
would map these error codes into the equivalent ODBC error 
code, which is S0002. 

ODBC lets a driver stack errors to provide more diagnostic 
detail. Front-end applications can provide a “more info" but¬ 
ton which strips off successive levels of errors to reveal the 
root cause of the error. For example, an application that al¬ 
lows a user to enter SQL statements directly should expect 
that the user will enter an occasional incorrect SQL statement 
and should be prepared to handle the problem gracefully. A 
first-level diagnostic, such as "syntax error in expression,” 
might not be sufficiently descriptive. The driver can provide a 
second layer of diagnostic text, such as “mismatched data 
types in comparison operation using date and integer types." 
The degree of diagnostic help provided is not limited by the 
ODBC specification, but rather by the degree of implementa¬ 
tion in the driver. 

Utility Functions 

An ODBC driver is a significant development exercise, 
which means that a certain degree of bookkeeping code 
must be created to support the functional code. ODBC drivers 
make extensive use of memory allocation and list functions 
to implement the numerous complex data structures which 
must be created and destroyed during the course of execu¬ 
tion. The state machine nature of the driver makes consis¬ 
tent use of such functions and proper cleanup essential to 
avoid gradual and unrecoverable consumption of system 
resources. 
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ODBC to DBMS Mapping 

The driver and DBMS interact in a variety of ways over the 
life of a connection. The mapping layer therefore interacts 
with most of the functional sub-units of a driver. Two of the 
most common interactions occur during retrieval of data dic¬ 
tionary information and retrieval of data. 

As described above, retrieval of data dictionary information 
from the DBMS is initiated through API calls, whereas retrieval 
of data from database tables is initiated using SQL SELECT 
statements transmitted via an API call. I discuss both below to 
show how the DBMS mapping layers differ according to the 
type of DBMS supported by the driver. 

Retrieving Data Dictionary Information 

The API function SQLTables retrieves the names of tables 
in a database. SQL DBMSs usually define a set of system tables 
that contain information about the database. Under Oracle, 
table names can be obtained by querying the ALL_CATALOG 
table. A simplified version of a select on the ALL_CATALOG 
tables is as follows: 

SELECT table_name, table_type FROM all_catalog 

Note that the driver emits the SQL statement and retrieves 
the table names from the server using DBMS-specific function 
calls, which it then maps into the format required by ODBC. 
The application does not directly query the DBMS system 
tables. 

Predictably, a non-SQL database will use a completely dif¬ 
ferent mechanism. For example, dBASE does not define any 
central data dictionary, since information about the structure 
of a database is usually stored in the logic of a dBASE pro¬ 
gram. An ODBC driver for dBASE must therefore make some 
assumptions about the organization of the database. dBASE 
stores each table in a .dbf file. Under DOS, the driver can 
assume that all tables for a database are stored in one DOS 
directory. Working with these assumptions, a dBASE driver 
would execute a DOS system call to switch to the directory 
containing the database, then execute additional DOS calls to 
search for all files with the .dbf extension and return the 
matching file names to the driver. Again, the driver would 
map the DOS file names into the format dictated by ODBC, 
leaving off the .dbf filename extensions. 

Retrieving Data 

The SELECT statement is the fundamental data retrieval 
mechanism in SQL and hence in ODBC drivers. Implementation 
of SELECT at the mapping level is relatively straightforward. By 
the time the SQL statement reaches this level, vendor string 
parsing has been performed and the SQL statement is in a 
form which should be directly accepted by the DBMS. 
Proprietary DBMS API calls (such as Oracle OCI or Sybase dblib) 
transmit the SQL statement across the DBMS transport layers 
to the server and retrieve the data. The retrieved data then 
passes through the type conversion process before being 
returned to the application. 

In a non-SQL database, an SQL interpreter must be 
provided to parse and execute the select statement. Ideally, 
the SQL interpreter should understand ODBC SQL and, where 
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possible, map the DBMS data types to ODBC data types direct¬ 
ly, to minimize conversion overhead. 

Non-SQL Driver Components 

Essentially, a single-tier driver behaves as a database en¬ 
gine in its own right. For example, a dBASE driver must accept 
SQL statements from the application, parse the SQL state¬ 
ments, understand the various formats and interrelationships 
between the files which comprise the dBASE database, build 
and execute an access plan to fulfill the user’s request, and, 
finally, return any results to the application. 


ODBC SQL Parser 

ODBC uses SQL for all data definition and data manipulation 
functions. In a non-SQL database, the ODBC SQL parser accepts 
SQL statements from the application and begins the process of 
converting the high-level SQL statements into the detailed 
low-level instructions necessary to fulfill the user’s request. 
The parser first checks the SQL statement for validity and then 
decomposes the statement into component parts that can be 
more readily manipulated by the optimizer and execution 
planner. 

For an ODBC SQL statement to be valid, the syntax must be 
correct, the objects referred to (such as tables and columns) 
must exist, and the types of operations 
requested must be valid for the objects 
the operations are to act upon. Once 
validity of the statement has been es¬ 
tablished, the parser creates internal 
data structures, or “query trees," to rep¬ 
resent the query so that it can be 
manipulated by other query processes. 
As a final step, the parser standardizes, 
or "prunes," the query tree to remove 
redundant clauses and produce a tree 
format ready to be optimized. 


Optimizer and Execution Planner 

SQL statements describe the opera¬ 
tion to be performed, not how to per¬ 
form the operation, so effective op¬ 
timization of a query is crucial. A good 
query planner/optimizer can yield 
order-of-magnitude performance im¬ 
provements relative to non-optimized 
access plans. Optimized queries that 
take seconds or minutes to perform can 
take hours if left un-optimized. The 
product of this phase is a detailed list of 
execution steps, described at the record 
and index level, that can be executed 
by a record-oriented process. 

Database Record Mapping Layer 

The Database Record Mapping Layer 
maps the record-oriented plan created 
by the optimizer and execution planner 
to an API for a record-oriented database 
engine or library. This layer also 
provides mappings between the DBMS 
and the driver’s Catalog and Meta-Data 
Management subsystem so that names 
of database objects and related infor¬ 
mation can be accessed by the driver 
and returned to the ODBC application. 

Non-SQL Database Record Manager 

The Record Manager Layer performs 
the low-level database access services 
required by a driver. The data can be in 
local or networked files and can take 
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virtually any format so long as code libraries to provide the 
low-level services are available. In addition, non-SQL data 
managers residing elsewhere on the network or running on 
the workstation as a separate process can be interfaced at 
this level. The services typically required at this level include: 

• Creating/deleting tables and indexes 

• Fetching/updating existing data 

• Adding new data 

• Moving sequentially through the file in both non-ordered 
and ordered (keyed) ways 

• Locking data as appropriate in multi-user environments 

• Providing data dictionary information such as table and 
column names, data types, index availability, etc. 

Operating System File System 

Ultimately, the data managed by the DBMS and its ODBC 
driver resides in local or networked operating system files. 

SQL Driver Components 

The main function of the lowest levels in a driver for an 
SQL database (i.e., a multi-tier database driver) is the bidirec¬ 
tional transfer of information between the driver and the net¬ 
work transport mechanism. In practice, once the mappings 
have been implemented, there is little more for the driver to 
do. Strictly speaking, the role of the driver ends at the level of 
the API Binding, but to complete the picture, I'll describe the 
remaining steps in the process to and from the DBMS server. 
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SQL DBMS API Bindings and SQL DBMS API 

ODBC drivers for SQL databases are often implemented as a 
layer on top of the DBMS vendor's proprietary client API (such 
as Oracle's OCI or Sybase's dblib). For performance reasons, 
driver developers may also choose to use a lower-level, un¬ 
published API. The library bindings are usually statically linked 
into the driver, in which case the connection to the DBMS API 
is made dynamically at runtime. The DBMS API provides an 
application-level connection to the DBMS's network transport 
layer. 

SQL DBMS Client Network Transport 

The client transport layer maintains the communication 
link between the client and the server. Under Windows, the 
API entry points and supporting code will typically be imple¬ 
mented as DLLs (Oracle’s SQL‘NET, Sybase’s NETLib, and Ingres' 
Ingres/NET are well-known examples), although some DBMSs 
rely on TSR drivers loaded at boot time. The correct version of 
the transport layer for each database to be accessed via ODBC 
must be installed on the client. The DBMS transport layer com¬ 
municates with a network protocol layer such as TCP/IP, 
SPX/IPX, or Named Pipes. For example, if an Oracle client com¬ 
municates with the server via TCP/IP, Oracle’s SQL "Net for 
TCP/IP must be installed. If the same client also communicates 
via SPX/IPX with SQL Server running as a Novell NLM, then the 
appropriate NetLib for SPX/IPX layer must also be installed. In 
our experience, complexity and the opportunity for conflicts 
increases as the product of the number of transports and 
DBMS protocols. 

SQL DBMS Server Network Transport 

The server transport layer (sometimes referred to as a “lis¬ 
tener" or “demon") intercepts network messages from the 
client to a DBMS server process running on the server or host. 
The primary function of this layer is to maintain the connec¬ 
tion to the client on behalf of the server. 

SQL DBMS Server 

The DBMS Server or SQL Engine performs the real database 
work. Generally, the server will be handling requests sub¬ 
mitted by several clients on the network. The server manages 
the client’s requests, while maintaining database security, con¬ 
currency, and integrity. 

DBMS Server Files 

The database information is ultimately stored on disk files 
on the server or elsewhere on the network. Client applications 
have no knowledge of the file formats, since they see only a 
logical representation of the data. 

Summary 

Although ODBC driver development is a complex, time-con¬ 
suming, and expensive task, the benefits to DBMS and front- 
end developers are significant. While it is too early to tell 
what the impact of ODBC will be on the database industry 
generally, it is already clear that there is significant interest. 
The quality of drivers and of front-end applications to take 
advantage of the drivers will, to a large degree, determine the 
success of the ODBC initiative. □ 
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or in care of this magazine at: 

1601 W. 23rd St., Suite 200 
Lawrence, KS 66046-2700. 

Paul answers all electronic 
communications but is unable to 
respond personally to hard copy/disk 
messages. 


Q What is a good way to set the system date and time from a Windows applica¬ 
tion? I haven't been able find a set of time functions like the DOS set date and 
time INT 21b routines that can be called by Windows applications. Also, since Win¬ 
dows keeps track of system time in ticks since it was started, would that value need 
to be updated as well? The only interface routines I’ve found for updating system 
time ticks are in the VxD interfaces and not in standard mode. Are there any issues I 
should be aware of — like, say, the Windows Scheduler getting upset if any timer 
values are changed underneath? 

Varsha Narayanan 
CIS: 71072,3103 

A To answer your questions, 1 examined the workings of the Windows Control 
Panel “Date/Time” applet, since this applet can get and set the DOS time and 
date for the entire system. The effect of changing the time or date is not localized to 
the system VM while running in enhanced mode: the new time or date will also 
appear in any DOS box, and will persist after the Windows session ends. 

The applet simply uses the good old INT 21h time and date routines, namely 
functions 2Ah through 2Dh. The applet installs a 950-millisecond Windows timer at 
startup and calls functions 2Ah (get date) and 2Ch (get time) each time the resulting 
WM_TIMER message is received to update its current time and date display. When the 
user changes the date or time, the applet uses functions 2Bh (set date) or 2Dh (set 
time). In fact, in the article “Timers and Timing in Microsoft Windows" from the MSDN 
CD, Bob Gunderson (“Dr. Gui”) explains that one way to obtain accurate time informa¬ 
tion from a protected-mode Windows program is to use INT 21 h function 2Ch. 

When the user changes the time or date, the Date/Time applet performs no 
action other than issuing the INT 21 h to change the DOS date or time. This makes 
sense, since the DOS date and time and the Windows tick count are separate en¬ 
tities. The DOS system time and date is an absolute time, whereas the Windows tick 
count (obtained through the identical functions GetTickCountf) or GetCurrent- 
Time()) is relative to the start of the current Windows session. Finally, the Windows 
scheduler does not depend on the DOS system time, so 1 think you are safe using 
the INT 21h date and time functions, just as the control panel applet does. But to 
be polite, you should inform all top-level windows that the system time has 
changed by executing: 

SendMessage(HWND_BROADCAST, 

WM_TIMECHANGE, 0, 0); 


Paul Bonn eau is a Software Design Engineer at a major software firm. He was a 
developer of HyperChem, a molecular modeling system marketed by Autodesk. 





















Listing 1 ncbtn.c 


!**★***★★★★★*★★*★★★★*★**★*★★***★****★*★★★*****★★*★★***j 


/* ncbtn.c */ 

LRESULT CALLBACK export 

/* — Procedure places a push button on a window's */ 

LwPopupWndProc(HWND hwnd, UINT wm, WPARAM wParam, 

/* caption. */ 

LPARAM IParam) 

j ★★*★★*★★*★★★*★★★★★★★***★*★*★★*★*★★★★*★**★*★*★*★*★**★* j 

j***★**★*★*★**★**★★**★★★******★******★★*★**★*★★*★*****J 

#include <windows.h> 

/* — Popup (button owner) window procedure. */ 

#include <windowsx.h> 

^*****************************************************j 

#include "ncbtn.h" 



RECT rect; 

BOOL CALLBACK export FEnumWnd(HWND hwnd. 


LPARAM IParam); 

switch (wm) 

LRESULT CALLBACK export LwPopupWndProc(HWND hwnd. 

( 

UINT wm, WPARAM wParam, LPARAM IParam); 

default: 

LRESULT CALLBACK export LwSubclassProc(HWND hwnd, 

break; 

UINT wm, WPARAM wParam, LPARAM IParam); 


void PaintPush(HWND hwnd, HOC hdc); 

case WM CREATE: 

( 

/* Window word offsets. */ 

HWND hwndOwner = GetWindowOwner(hwnd); 

long lw; 

Idefine bCid 0 /* Control id. */ 


Idefine bState sizeof(WORD) /* State (in or out). */ 

/* Sub-class owner. */ 

#define bXPos (sizeof(WORD) + sizeof(BOOL)) 

if (GetProp(hwndOwner, szProcOff) == NULL && 

Idefine fBtnln 1 /* Button is pushed in. */ 

GetProp(hwndOwner, szProcSel) == NULL) 

{ 

Idefine fBtnOut 0 /* Button is not pushed in. */ 

WNDPROC lpfnOrig; 

char szPopupPushClassQ = "PopupButton"; 

lpfnOrig = SubclassWindow(hwndOwner, 

char szProcOff[] = "WndProcOff"; 

LwSubclassProc); 

char szProcSel [] = "WndProcSel”; 

SetProp(hwndOwner, szProcOff, 

HWND 

(HANDLE)OFFSETOF(lpfnOrig)); 

SetProp(hwndOwner, szProcSel, 

HwndCreateCaptionPush(HWND hwndOwner, PSTR pszTitle, 

(HANDLE)SELECTOROF(lpfnOrig)); 

WORD cid, int x, int dx) 

( 

y★*★★*★***★**★****★★**★****★*★****★★*★★**★★***★★****** j 

lw = (long)((LPCREATESTRUCT)lParam)-> 

/* -- Create a push button on the windows caption. */ 

1pCreateParams; 

/* -- hwndOwner : Owner window of push button. */ 

SetWindowWord(hwnd, bCid, LOWORD(lw)); 

/* -- pszTitle : Push button title text. */ 

SetWindowWord(hwnd, bXPos, HIWORD(lw)); 

/* -- cid : Push button control id. */ 

SetWindowWord(hwnd, bState, fBtnOut); 

/* — x : Left of push button (from edge of */ 

) 

/* system menu icon). */ 

break; 

/* -- dx : Width of push button. */ 


j*★★*★★★*★★★*★★★*★★*★★★★*★★★★★*★★★******★***★****★**★*J 

case WM_PAINT: 

i 

WNDCLASS wcs; 

\ 

PAINTSTRUCT wps; 

HINSTANCE hins = GetWindowInstance(hwndOwner); 


HWND hwnd; 

BeginPaint(hwnd, &wps); 

if (!GetClassInfo(hins, szPopupPushClass, &wcs)) 

/ 

PaintPush(hwnd, wps.hdc); 

EndPaint(hwnd, &wps); 

i 

wcs.style = 0; 

return 0; 

wcs.lpfnWndProc = LwPopupWndProc; 


wcs.cbClsExtra = 0; 

case WM ERASEBKGND: 

wcs.cbWndExtra = 

return TRUE; 

sizeof(WORD) + sizeof(BOOL) + sizeof(int); 


wcs.hlnstance = GetWindowInstance(hwndOwner); 

case WM MOUSEACTIVATE: 

wcs.hlcon = NULL; 

return MA NOACTIVATE; 

wcs.hCursor = LoadCursor(NULL, IDC ARROW); 


wcs.hbrBackground = NULL; 

case WM LBUTTONDOWN: 

wcs.lpszMenuName = NULL; 

SetCapture(hwnd); 

wcs.lpszClassName = szPopupPushClass; 

SetWindowWord(hwnd, bState, fBtnln); 

if (!RegisterClass(&wcs)) 

InvalidateRect(hwnd, NULL, TRUE); 

return NULL; 

UpdateWindow(hwnd); 

} 

return 0; 

if ((hwnd * CreateWindow(szPopupPushClass, 

case WM MOUSEMOVE: 

pszTitle, WS POPUP, 0, 0, 

if (GetCapture() == hwnd) 

dx, GetSystemMetrics(SM CXSIZE), hwndOwner, 

{ 

NULL, hins, (void far *)MAKELONG(cid, x))) != 

BOOL fin; 

NULL) 


f 

GetClientRect(hwnd, &rect); 

FEnumWnd(hwnd, 0); 

fin = PtInRect(&rect, ‘(POINT *)&1Param) ? 

ShowWindow(hwnd, SW SHOWNOACTIVATE); 

fBtnln : fBtnOut; 

} 

if (fin * GetWindowWord(hwnd, bState)) 

return hwnd; 

( 

} 

SetWindowWord(hwnd, bState, fin); 
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Q Can you help solve a problem a friend recently asked 
me about? He was receiving the following warning: 

dll.cpp(9) : warning C4758: 

address of automatic (local) 
variable taken, DS != SS 

when compiling the following DLL source 

linclude <Windows.h> 
double FAR PASCAL fl() ; 
void FAR PASCAL f2() 

{ 

double d ; 
d = fl() ; 

} 


with the following call to Microsoft C/C++ v7 compiler: 

CL -c -ALw -W4 -Gsw -Od -Zipe -FaDLL.ASM DLL.CPP 

As I have never written a DLL which involved floating num¬ 
bers, I looked in the assembly source generated with -Fa-. 

lea ax,WORD PTR -20[bp] 
push ax 

call FAR PTR ?fl@@ZCNXZ 

mov bx,ax 

fid QWORD PTR ss:[bx] 

fstp QWORD PTR -12[bp] 


Listing 1 continued 


InvalidateRect(hwnd, NULL, TRUE); 
UpdateWindow(hwnd); 

) 

) 

break; 

case WM_LBUTTONUP: 

if (GetCapturef) == hwnd) 

{ 

ReleaseCaptureQ; 
if (GetWindowWord(hwnd, bState)) 

{ 

SetWindowWord(hwnd, bState, fBtnOut); 
InvalidateRect(hwnd, NULL, TRUE); 
UpdateWindow(hwnd); 

) 

GetClientRect(hwnd, &rect); 
if (PtInRect(&rect, ‘(POINT *)&lParam)) 
SendMessage(GetWindowOwner(hwnd), 
WM_COMMAND, 

GetWindowWord(hwnd, bCid), 

MAKEL0NG((WORD)hwnd, BN CLICKED)); 

) 

return 0; 

1 

return DefWindowProc(hwnd, wm, wParam, IParam); 

I 


void 

PaintPush(HWND hwnd, HDC hdc) 

/***★*★**★*★**★**★**★*★*★**★★*********★*★**★★★*★****** j 

/* — Paint the push button. */ 


HALO IMAGING TOOLS 

GIVE PROGRAMMERS THE 

POWER TO WRITE 
IMAGING MAGIC. 


Sophisticated tools for today's programmers 
who need state-of-the-art imaging in their 
C and C++ applications. Create powerful image- 
enabled programs with the first multi-platform 
imaging API from Media Cybernetics. 

Slash months from your development effort 
with our award winning, market-proven 
technology. 


HALO Imaging Library" 

Manage multipe images in memory • Convert between bilevel, grayscale, 
palette and true color • Perform halftoning and other types of color reduction • 
Sharpen, blur and remove image noise • Adjust image brightness, contrast and 
gamma • Read and write TIFF, JPG, PCX, GIF, BMP, PICT, and TGA files • 
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HALO Advanced Imaging Library" 

Define complex (even disjoint) areas of interest • Count objects and perform 
sophisticated measurements • Remove noise using Fast Fourier Transform functions 
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Sobel, thinning • Perform image arithmetic • Transform image color models. 



Available for— 

DOS 

Microsoft®Windows“ 
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IBM® OS/2® 
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UNIX®OPEN LOOK™ 
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The Imaging Experts 

1 -800-992-HALO 
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8484 Georgia Avenue 
Silver Spring, Maryland 20910 < 
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+ 1 301-495-5964—fax 
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I guess the warning comes from the lea instruction. I tried 
with -Os and -Ot instead of -Od, and the warning disap¬ 
peared! I got: 


Listing 1 continued 


{ 

HBRUSH hbrs = NULL; 

HBRUSH hbrsSav = NULL; 

int dxBdr = GetSystemMetrics(SM_CX80RDER); 

int dyBdr = GetSystemMetrics(SM_CYBORDER); 

int fin = GetWindowWord(hwnd , bState); 

COLORREF clrTextSav, clrBkSav; 

POINT dpt; 

RECT rect, rectT; 

char szBuf[256]; 

GetClientRect(hwnd, &rect); 
dpt.x = rect.right - 2 * dxBdr; 
dpt.y » rect.bottom - 2 * dyBdr; 

/* Draw the button face. */ 
if ((hbrs = CreateSolidBrush(GetSysColor( 
C0L0R_BTNFACE))) != NULL) 
hbrsSav = SelectObject(hdc, hbrs); 

PatBlt(hdc, dxBdr, dyBdr, dpt.x, dpt.y, PATCOPY); 
if (hbrsSav !• NULL) 

SelectObject(hdc, hbrsSav); 
if (hbrs != NULL) 

DeleteObject(hbrs); 

/* Draw the button text. */ 
clrTextSav = 

SetTextColor(hdc, GetSysColor(COLOR_BTNTEXT)); 
clrBkSav = 

SetBkColor(hdc, GetSysColor(C0L0R_BTNFACE)); 
GetWindowText(hwnd, szBuf, sizeof szBuf); 
rectT « rect; 

InflateRect(&rectT, -dxBdr, -dyBdr); 
if (fin) 


lea 

ax,WORD 

PTR [bp-18] 

push 

ax 


cal 1 

FAR PTR 

?fl@@ZCNXZ 

push 

ds 


lea 

di.WORD 

PTR [bp-10] 

mov 

si ,ax 


push 

ss 


pop 

es 


push 

ss 


pop 

ds 


ASSUME 

DS: DGROUP 

movsw 



movsw 



movsw 



movsw 



pop 

ds 



As I understand, the offset pushed on the stack is a parameter 
for the function fl (). It’s the address of a temporary double 
variable on the stack where the function should put the result 
that the calling function will copy back to the d variable. 1 also 
think that this temporary variable is always located on the 
stack (on return of fl(), DX, which is the segment, is never 
used). 


Automate \our 

Customer’s 
Data Entry 

Windows3.1 DLL... J 
A Total Forms Processing Tool Kit 


The AutoData SDK “ a Windows 
3.1 Dynamic Link Library (DLL), 
is a software developer's Kit 
designed to promote the auto¬ 
mation of software packages 
that require keyboard data entry. 
All the latest advances in char¬ 
acter recognition, check mark 
recognition and image capture 
are yours with the AutoData SDK. 


Form Processing 
Applications Include: 

Order Forms 
Insurance Claims 
Government Forms 
Human Resource Forms 
Inventory Control 
ISO 9000 Documents 


A U T\0 


SYSTEMS 

A Unit of Electro-Sensors, Inc. 


AutoData Systems 

10365 West 70th Street Eden Prairie, MN 55344-3446 

Call Toll Free: 800/662-2192 

Fax: 612/941-7312 In MN: 612/941-8180 
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Is my explanation correct? If not, could you explain it to 
me? In both cases, why do I have a warning with -Od and not 
with -Ot or -Os? 

Yves Dolce 
D0LCE%BLIULG11.BITNET 

A Microsoft C/C++ v7 consists of two compilers. One of 
them, the fast-mode compiler, quickly generates unop¬ 
timized code and is useful during the development process. 
The other compiler is the optimizing compiler. This compiler 
takes longer to run, but generates optimized code. It is useful 
for generating final versions of a project. 

When you specify the -Od option (disable optimizations), 
the compiler automatically chooses the fast-mode compiler. 
The fast-mode compiler does the straightforward thing: it 
generates an fid to push the result of fl() onto the FPU 
register stack, and generates an fstp to pop the result into 
the local variable d. You are correct about fl() using the 
stack to return its value. Microsoft C/C++ v7 uses the stack to 
return values larger than 32 bits. 

If you specify -Ot or -Os, the optimizing compiler will be 
used. You can also force the optimizing compiler to be used, 
even if you specify -Od, if you specify the -/- option (disable 
fast-mode compiler). Regardless of the floating-point option, 
the optimizing compiler thinks it is faster to copy the result 
using string instructions. This is definitely not true on a 486, 
where the entire three-instruction sequence 

mov bx,ax 

fid QWORD PTR ss: [bx] 
fstp QWORD PTR -12[bp] 

only takes 10 clocks. But the 16-bit Microsoft C/C++ v7 com¬ 
piler generates at best 80286 instructions. It may be that the 
long sequence of instructions 

push ds 

lea di,W0RD PTR [bp-10] 

mov si,ax 

push ss 

pop es 

push ss 

pop ds 

movsw 

movsw 

movsw 

movsw 

pop ds 

is faster to execute on an 80286 than the previous sequence 
of three instructions. 

I think the problem with the fast-mode compiler is the 
fid QWORD PTR ss: [bx] 

instruction. Despite the presence of an explicit segment over¬ 
ride, the compiler emits the warning, since the return value 
on the stack is being obtained through the BX register. If you 
get the return value through the BP register, which implies the 


Listing 1 continued 


f 

rectT.left += dxBdr; 
rectT.top += dyBdr; 
rectT.right += dxBdr; 
rectT.bottom += dyBdr; 

} 

DrawText(hdc, szBuf, -1, ArectT, 

DT_CENTER j DT_SINGLELINE | DT_VCENTER); 
SetTextColorjhdc, clrTextSav); 

SetBkColor(hdc, clrBkSav); 

/* Draw the outside frame, left, right, top, */ 

/* bottom. */ 

if ((hbrs = CreateSolidBrush(GetSysColor( 

C0L0R_WINDOWFRAME))) != NULL) 
hbrsSav = SelectObject(hdc, hbrs); 

PatBlt(hdc, 0, dyBdr, dxBdr, dpt.y, PATC0PY); 
PatBlt(hdc, rect.right - dxBdr, dyBdr, dxBdr, 
dpt.y, PATC0PY); 

PatBlt(hdc, dxBdr, 0, dpt.x, dyBdr, PATCOPY); 
PatBlt(hdc, dxBdr, rect.bottom - dxBdr, dpt.x, 
dyBdr, PATCOPY); 
if (hbrsSav != NULL) 

SelectObject(hdc, hbrsSav); 
if (hbrs != NULL) 

DeleteObject(hbrs); 

/* Draw the four corners in the appropriate */ 

/* color. */ 

if ((hbrs = CreateSolidBrush(GetSysColor( 
GetActiveWindow() == GetWindowOwner(hwnd) ? 

C0L0R_ACTIVECAPTI0N : COLOR INACTIVECAPTION))) 
1= NULL) 

hbrsSav = Select0bject(hdc, hbrs); 


Full-Text Toolkit 


The InfoLink Library adds high performance 
text indexing and retrieval to your application. 

▼ It's Fast! Boolean searches take less than one 
second, regardless of the size of the database. 

▼ Boolean, Phrase, and Proximity searches can be 
performed. Nested searches and wild card searches 
are also available. 

▼ Low Overhead indexes (with all words indexed) are 
typically 10% of the size of the original text. 

▼ DOS, Windows and MAC platforms. 

Great for applications in Visual Basic, Visual C++, C++, or C. 


»HnfoLink 

TECHNOLOGIES 


750 N. 200 W. Provo, Utah 84601 
(801) 375-7507 Fax (801) 375-7537 


1 - 800 - 426-3277 
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stack segment, I don’t think a warning would have been 
generated. 

Microsoft has confirmed that the warning message is a bug 
in the Microsoft C/C++ v7 fast-mode compiler, and that the 
compiler does indeed generate correct code (see article 
C9208001 on the MSDN CD). The bug has been fixed in the 
Microsoft C/C++ v8 (Visual C++) compiler, so just add it to your 
list of minor annoyances! 


Q l have a thing called the 
“Wired for Sound 
Sampler." This application adds 
a button — next to the control 
menu button —to the title bar of all applications. Does anyone 
know how this was done — or even how to add a button to 
just one title bar? The only thing I saw that came close was 


;PT1 


Borland C++ v3.l 
Symantec C++ v6.0 
Visual C++ v 1.0 


Listing 1 continued 


PatBlt(hdc, 0, 0, dxBdr, dyBdr, PATCOPY); 
PatBlt(hdc, rect.right - dxBdr, 0, dxBdr, dyBdr, 
PATCOPY); 

PatB1t(hdc, 0, rect.bottom - dyBdr, dxBdr, dyBdr, 
PATCOPY); 

PatBlt(hdc, rect.right - dxBdr, 
rect.bottom - dyBdr, dxBdr, dyBdr, PATCOPY); 
if (hbrsSav !- NULL) 

SelectObject(hdc, hbrsSav); 
if (hbrs != NULL) 

DeleteObject(hbrs); 

if (!fIn) /* Highlight? */ 

{ 

if ((hbrs = CreateSolidBrush(GetSysColor( 
COLOR_BTNHIGHLIGHT))) 1* NULL) 
hbrsSav * SelectObject(hdc, hbrs); 
PatBlt(hdc, dxBdr, dyBdr, dpt.x - dxBdr, 

2 * dyBdr, PATCOPY); 

PatBlt(hdc, dxBdr, 3 * dyBdr, 2 * dxBdr, 
dpt.y - 3 * dyBdr, PATCOPY); 
if (hbrsSav l- NULL) 

SelectObject(hdc, hbrsSav); 
if (hbrs I- NULL) 

DeleteObject(hbrs); 


DESIGN YOUR OWN 
GUI DBMS MULTI-MEDIA 
.EXE APPLICATIONS! 




tWinGM 


Applications in an instant 
and support for all these databases: 


•Sequiter CodeBase 

• Paradox 
•Q+E 

• Btrieve 
•SQLServer 
•XDB 
•OS/2 DBM 

• Excel Files 
•dBASE 

• INGRES 

• INFORMIX 

• P.O.E.T. 


•AS/400 (SQL/400) 
•Tandem Non-Stop SQL 

• FaircomC-tree Plus 

• OLE 2.0&DDE/DDEML 
•Text Files 
•ODBC 



• Sybase 

• Progress 

• DB2 
•Oracle 

• SQLBase 

• NetWare SQL 

• Raima 
•Teradata 

• HP ALLBASE/SQL 

• HP IMAGE/SQL 
•SQL7DS 

Supports: C & C++, Borland Pascal, 



dBase & Paradox for Windows 
and ObjectVision .OVD files. 

BUZZWORDS IIMT'L. INC. 

7636 County Rd. 621 • Cape Girardeau, MO 63701 
314-334-6317 or FAX 314-334-0794 
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) 

/* Shadow. */ 

if ((hbrs - CreateSolidBrush(GetSysColor( 
C0L0R_BTNSHAD0W))) I- NULL) 

hbrsSav - SelectObject(hdc, hbrs); 
if (fin) 

{ 

PatBlt(hdc, dxBdr, dyBdr, dpt.x, dyBdr, 

PATCOPY); 

PatBlt(hdc, dxBdr, 2 * dyBdr, dxBdr, 
dpt.y - dyBdr, PATCOPY); 

} 

else 

{ 

PatBlt(hdc, dxBdr, dpt.y, dpt.x, dyBdr, 

PATCOPY); 

PatBlt(hdc, dxBdr * 2, dpt.y - dyBdr, 
dpt.x - dxBdr, dyBdr, PATCOPY); 

PatBlt(hdc, rect.right - 2 * dxBdr, dyBdr, 
dxBdr, dpt.y - 2 * dyBdr, PATCOPY); 
PatBlt(hdc, rect.right - 3 * dxBdr, 2 * dyBdr, 
dxBdr, dpt.y - 3 * dyBdr, PATCOPY); 

} 

if (hbrsSav != NULL) 

SelectObject(hdc, hbrsSav); 
if (hbrs !■ NULL) 

DeleteObject(hbrs); 

} 

LRESULT CALLBACK _export 

LwSubclassProc(HWND hwnd, UINT wm, WPARAM wParam, 

LPARAM 1 Param) 

j************ ******************** ************ *********j 

/* — Subclass owner to find out when it moves. */ 
/*****************************************************/ 
{ 

WNDPROC lpfn; 

if ((lpfn = (WNDPROC)MAKELP( 

GetProp(hwnd, szProcSel), 

GetProp(hwnd, szProcOff))) == NULL) 

return 0; /* Can't get original wnd proc! */ 

switch (wm) 

{ 

default: 

break; 

case WM_M0VE: 

EnumTaskWindows(GetCurrentTask(), FEnumWnd, 0); 
break; 

case WM_DESTROY: 

RemoveProp(hwnd, szProcOff); 

RemoveProp(hwnd, szProcSel); 
SubclassWindow(hwnd, lpfn); 
break; 

i 

return 

CallWindowProc(lpfn, hwnd, wm, wParam, IParam); 

) 

BOOL CALLBACK _export 
FEnumWnd(HWND hwnd, LPARAM IParam) 

I ************************************************ 

/* -- EnumTaskWindows() callback. */ 

/* -- Reposition all popup push buttons. */ 

j *****************************************************/ 


char szClass[32]; 

GetClassName(hwnd, szClass, sizeof szClass); 
if (lstrcmp(szClass, szPopupPushClass) — 0) 
{ 
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the MYPAL application distributed as sample code on the 
MSDN CD. 

David Hay 
CIS: 72400,1006 

A Let me first answer the simpler question of how to place 
a pushbutton on the caption of a window under the 
application’s control. This can then be extended to placing a 
button on any window's caption. 

Unfortunately, you cannot simply position a child button 
control on a window’s caption. Child windows are always 
restricted to the client area of their parent, and a window’s 
caption is part of its non-client area. Attempting to place a 
child control outside of the client area results in an invisible 


Listing 1 continued 


RECT rect; 

GetWindowRect(GetWindowOwner(hwnd), &rect); 
SetWindowPos(hwnd, NULL, rect.left + 
GetSystemMetrics(SM_CXFRAME) + 
GetSystemMetrics(SM_CXSIZE) + 
GetSystemMetrics(SM_CXB0RDER) + 
GetWindowWord(hwnd, bXPos), 
rect.top + GetSystemMetrics(SM_CYFRAME), 

0 , 0 , 

SWP_N0ACTIVATE | SWP_NOSIZE | SWP_N0Z0RDER); 

} 

return TRUE; 

} 

/* End of File */ 


control. 

What you need, then, is to be able 
to emulate a pushbutton through some 
other mechanism. Fortunately, pushbut¬ 
tons are very simple controls. Their role 
is to provide a mouse and a keyboard 
interface. When the left mouse button 
(or right button if the logical buttons 
have been switched in the control 
panel) is pressed and the mouse cursor 
is over a pushbutton, the pushbutton 
sets the focus to itself, captures the 
mouse (using SetCaptureO), and 
renders itself in the pushed-in, or high¬ 
lighted, state. As the user moves the 
mouse with the left mouse button held 
down, the control tracks the mouse. If 
the cursor leaves the pushbutton, the 
pushbutton unhighlights itself, and 
when the cursor re-enters the pushbut¬ 
ton, it re-highlights itself. When the user 
releases the mouse, the pushbutton 
yields control of the mouse (using 
ReleaseCaptureO) and redraws itself in 
the unhighlighted state. If the cursor 
was over the pushbutton when the 
mouse button was released, the push¬ 
button sends a WM_COMMAND message 
with the BN_CLICKED notification code 
to its parent window. 

The keyboard interface is available 
only when the pushbutton has the 
focus. You might think this is an inac¬ 
curate statement, since the user can 
press the Return key in a dialog when 
no pushbutton has the focus, but in fact 
the dialog receives a UM_C0MMAND mes¬ 
sage with a BN_CLICKED notification via 
IsDialogMessagef). In this case it is 
the dialog manager, not the pushbutton 
that provides the user interface for the 
Return key. The same holds true when 
the user enters the mnemonic charac¬ 
ter for a pushbutton that contains an 
underlined character in its title text. 



Do you know where your bugs are ? 


This C/C++ programmer is finding his bugs the hard way ... one at a time. 
That’s why it’s taking so long. But there is an easier way ... use 

PC-lint 6.00 for C/C++ 


Yes, you read correctly, we are now supporting C+ + . PC-lint for C/C++ will analyze a mixed 
suite pfC and C++ modules. It will uncover glitches, bugs, quirks, superfluities and 
inconsistencies. It will catch subtle errors before they catch you. By examining multiple 
modules, PC-lint enjoys a perspective your compiler does not have. 


Numerous C++Warnings and Messages: 
Are your inherited destructors virtual? Are 
your constructor new’s matched by your 
destructor delete’s? Are your initializers in 
order? Are names inadvertently hiding other 
names? Are your C++ modules consistent 
with your C modules? Much, much. more. 
Plus Our Traditional C Warnings: 
Uninitialized variables, unaccessed 
variables, possibly uninitialized variables, 
strong type mismatches, indentation 
irregularities, loss of precision, strange uses 
of Booleans, signed/unsigned mismatches, 
suspicious expressions, unused macros, etc. etc. 


Full C++ Support - PC-lint is based on the 
ARM and is tracking the latest ANSI/ISO 
draft including exceptions and templates. It 
supports both Borland and Microsoft C/C++. 
Options (ialore: A plethora of options for 
message suppression, message format, 
compiler dependencies, etc. All messages can 
be individually suppressed or enabled, both 
locally and globally. Numerous compilers/ 
libraries supported. MS-DOS and OS/2. 
PC-lint for C $13 9 

PC-lint for C/C++ $239 

Current PC-lint users: call for pricing 
Unix and Mainframe programmers: call 
for pricing for FlexeLint. 



3207 Hogarth Lane, Collegeville, PA 19426 

CALL TODAY (215)584-4261 Or FAX (215)584-4266 

30 Day Money-back Guarantee. 

PA add 6% sales tax. PC-lint and FlexeLint arc trademarks of Gimpel Software 
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Listing 2 ncbtn.h 


^*****************************************************j 

/* ncbtn.h */ 

/* -- Interface to non-client push button code. */ 

HWND HwndCreateCaptionPush(HWND hwndOwner, 

PSTR pszTitle, WORD cid, int x, int dx); 

/* End of File */ 


Listing 3 ncbtndmo.c 

^i**************************************************** ^ 


/* ncbtndmo.c */ 

int PASCAL 

/* -- Program demonstrates use of non-client push */ 

WinMain(HINSTANCE hins, HINSTANCE hinsPrev, LPSTR lpsz, 

/* button code. */ 

int wShow) 

/* — To build: */ 

j***************************************************** j 

/* cc -DSTRICT ncbtndmo.c ncbtn.c */ 

/* -- Entry point. */ 

j***************************************************** j 

j*****************************************************j 

#include <windows.h> 

{ 

linclude "ncbtn.h" 

MSG msg; 


HWND hwnd; 

LRESULT CALLBACK export LwMainWndProcfHWND hwnd. 


UINT wm, WPARAM wParam, LPARAM IParam); 

if (hinsPrev == NULL) 

/ 

#define cidPushl 1 /* Child push button control id. */ 

WNDCLASS wcs; 

#define cidPush2 2 /* Child push button control id. */ 



wcs.style = 0; 

char szMainClassf] = "NonClientButton"; 

wcs.lpfnWndProc = LwMainWndProc; 

char szTitlef] » “Non-client push button demo"; 

wcs.cbClsExtra « 0; 

char szBtnlf] = "Push me"; 

wcs.cbWndExtra « 0; 

char szBtn2[] » "or me"; 

wcs.hlnstance = hins; 


A pushbutton’s keyboard interface is very simple. It reacts 
only to the spacebar. When a pushbutton has the focus and 
the user presses the spacebar, the pushbutton highlights itself. 
When the user releases the spacebar, the pushbutton unhigh¬ 
lights itself and sends a UM_COMMAND message with the 
bn_clicked notification to its parent. To avoid some potential 
internal inconsistencies, a pushbutton will also give itself the 
focus and capture the mouse when the spacebar is depressed. 


fHands-Qn Windows and C++ Training 




C++ and Windows in a Week! 


Our Most Popular Course Ever! C++ in Two Days 


menu and dialogs. Using MFC containers and 
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Imposing a keyboard interface in a window’s caption is 
probably not advisable. A major problem is where in the tab 
order the pushbutton should exist if the parent window has 
other controls. This problem is non-trivial, since the tab order 
will be implemented either explicitly, in an application's user 
interface code, or through the use of IsDialogMessagef). This 
is especially true if you are modifying another application’s 
windowl 


Since such a pushbutton cannot be implemented as a child 
control, a second problem is which window to set the focus 
to. Setting it to the top-level window and subclassing the top- 
level window to intercept keyboard messages may not be a 
good idea, since a top-level window typically responds to a 
UM_SETFOCUS message by immediately setting the focus to a 
child. Using another window style for the pushbutton, such as a 
popup window, has the problem that Windows will activate the 
popup window when it receives the focus, thereby deactivating 


Listing 3 continued 


wcs.hlcon = LoadIcon(NULL, IDI_APPLICATION); 
wcs.hCursor = LoadCursor(NULL, IDC_ARR0W); 
wcs.hbrBackground = (HBRUSH)(C0L0R_WIND0W + 1); 
wcs.lpszMenuName * NULL; 
wcs.lpszClassName = szMainClass; 
if (!RegisterClass(&wcs)) 
return FALSE; 

} 


PostQuitMessage(O); 
break; 

case WM_COMMAND: 

if (LOWORD(IParam) != 0 && 

(wParam == cidPushl || wParam == cidPush2)) 

{ 

char szBuf[32]; 


msg.wParam = 0; 

if ((hwnd = CreateWindow(szMainClass, szTitle, 
WS_0VERLAPPEDWIND0W, CWJJSEDEFAULT, 
CWJJSEDEFAULT, CWJJSEDEFAULT, CWJJSEDEFAULT, 
NULL, NULL, hins, NULL)) != NULL) 

{ 

ShowWindow(hwnd, wShow); 

while (GetMessage(&msg, NULL, 0, 0)) 

I 

TranslateMessage(&msg); 
DispatchMessage(&msg); 

} 

) 

return msg.wParam; 

) 


LRESULT CALLBACK _export 

LwMainWndProc(HWND hwnd, UINT wm, WPARAM wParam, 

LPARAM IParam) 

/★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★Hr**********/ 

/* — Main window procedure. */ 

j★★★***★*★★*★★★★**★**★*★***★**★**■*****★★*★★★★★★*★**★★★j 

I 

switch (wm) 

{ 

default: 

break; 

case WM_CREATE: 

I 

HDC hdc; 

SIZE ptl, pt2; 

int dxBdr; 

if ((hdc - GetDC(hwnd)) == NULL) 
break; 

dxBdr = GetSystemMetrics(SM_CXBORDER); 
GetTextExtentPoint(hdc, szBtnl, sizeof szBtnl, 
&pti); 

ptl.cx += 8 * dxBdr; 

HwndCreateCaptionPush(hwnd, szBtnl, cidPushl, 

0, ptl.cx); 

GetTextExtentPoint(hdc, szBtn2, sizeof szBtn2, 
&pt2); 

HwndCreateCaptionPush(hwnd, "or me", cidPush2, 
ptl.cx, pt2.cx + 8 * dxBdr); 

ReleaseDC(hwnd, hdc); 

I 

break; 

case WM DESTROY: 


wsprintf(szBuf, "Push button %d", wParam); 
MessageBox(hwnd, "Thank you!", szBuf, 
MB_0K); 
return 0; 

) 

break; 

) 


return DefWindowProc(hwnd, wm, wParam, IParam); 
} 

/* End of File */ 
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the top-level window and generating a 
very puzzling user interface (it will look 
as if there were no active window). 

Given the above problems, it is im¬ 
portant for a caption-based pushbutton 
to ensure that it never gets the focus 
(and therefore has no keyboard inter¬ 
face). It can track the mouse, like a nor¬ 
mal child pushbutton, but must leave 
the focus unchanged when selected 
with the mouse. You could provide a 
keyboard interface from the top-level 
window by using an accelerator table 
and underlining the mnemonic in the 
pushbutton’s title text. You would then 
use the pushbutton's control ID for the 
accelerator table entry's ID field. 

There are several approaches you 
can take to emulating a pushbutton 
control. Three I thought of were: 

• create a regular child pushbutton 
control inside a popup window on 
top of the caption, or 

• without creating a window for the 
pushbutton, perform explicit mouse- 
hit testing on the caption area oc¬ 
cupied by the “button”, and paint 
the area appropriately, or 

• create a pushbutton popup control 
from scratch, and place it on top of 
the caption. 

The first approach seems the most 
straightforward. You create a popup 
window the same size as the required 
pushbutton, then create a pushbutton 
as the child of the popup. The popup 
passes along all UM_COMMAND notifica¬ 
tions from the child pushbutton to the 
window with the caption. Unfortunate¬ 
ly, this approach creates a major prob¬ 
lem: how do you prevent the pushbut¬ 
ton from giving itself the focus when 
the user selects it with the mouse? You 
can even try subclassing the control 
and returning the focus to the window 
that is losing the focus by trapping 
UM_SETFOCUS messages, but this will 
leave Windows confused about which 
window has the focus. I cannot think of 
a clean way to prevent the control from 
giving itself the focus, so I do not con¬ 
sider this method viable. 

To implement the second approach, 
the window procedure needs to trap 
the MJCPAINT and m_NCACTIVATE 
messages, since both of these update a 
window’s caption, instead of using 
UM_LBUTTONDOUN, HM_MOUSEMOVE, and 
WM_LBUTTONUP messages, the window 


procedure would use WM_NCLBUTTON- 
DOUN, WM_NCMOUSEMOVE, and MJCLBUT- 
TONUP to provide the mouse interface. 
In essence, this approach involves creat¬ 
ing a “windowless button," since you 
must provide code to implement the 
mouse and visual interfaces. 

The third approach is similar to the 
second, since you will still be im¬ 
plementing a control from scratch. How¬ 
ever, using a popup window allows you 
to encapsulate most of the code in the 
popup's window procedure, instead of 
distributing it across several messages 
for the window procedure of the top- 
level window. Unfortunately, you must 
trap all WM_MOVE messages received by 
the top-level window, since a popup 
does not automatically move with its 
parent — but this is better than trapping 
at least five non-client messages. 

I chose to implement the last ap¬ 
proach. ncbtn.c (Listing 1) implements 
a procedure to place a pushbutton on a 
window's caption. The entry point is 
HwndCreateCaptionPush(). Its argu¬ 
ments are the owner window, the title 
text for the pushbutton, the control ID 
to use in WM_COMMAND notification mes¬ 
sages, the position of the left edge of 
the pushbutton from the right edge of 
the system menu icon, and the width 
of the pushbutton. The routine can be 
called more than once for the same 
owner window, to place multiple push¬ 
buttons on the owner window’s cap¬ 
tion. 

HwndCreateCaptionPush() assumes 
the owner window has a caption, a sys¬ 
tem menu, and a resizable frame (i.e. it 
was created with the style bits WS_CAP- 
TION, WS_SYSMENU, and US_THICKFRAME). 
It must assume this in order to properly 
place the pushbutton relative to the 
upper left edge of the title bar portion 
of the caption. Windows does not pro¬ 
vide services to determine where the 
title bar portion begins. You can either 
compute its location given the sizes of 
various elements of the non-client area, 
or obtain it by hooking out the call 
Windows makes to ExtTextOutf) to 
draw the caption text (see the first 
question in the August 1993 “Q&A” 
[W/DQJ 4:8] for a description of how to 
accomplish this). For simplicity's sake, I 
decided to calculate the start of the 
title bar. 


Page 54 - Windows/DOS Developer’s Journal 


December 1993 



















To save a separate call to initialize 
ncbtn.c , HwndCreateCaptionPush() 

registers a class for the popup pushbut¬ 
ton window if one does not exist al¬ 
ready. The code reserves extra window 
words for the pushbutton’s control ID, 
its current highlight state, and its 
horizontal distance from the start of the 
title bar. HwndCreateCaptionPush() 
then creates an initially invisible popup 
pushbutton window (the US_VISIBLE 
style is not used), positions it using F- 
EnumUnd() (discussed later), and shows 
the button. The control ID and horizon¬ 
tal position are packed into a long and 
passed to CreateWindow() via the Ipv- 
Param parameter, a 32-bit value. 

The popup pushbutton window pro¬ 
cedure, LwPopupWndProc(), is the next 
routine in the file. When it receives a 
UM_CREATE message, it subclasses the 
owner window if it has not already 
done so during a previous call. The sub¬ 
class procedure, LwSubclassProc(), will 
trap WM_M0VE messages, so that all 
popup pushbuttons on the owner win¬ 
dow can be moved to maintain their 
position relative to the owner window's 
title bar. The original owner window 
procedure address is stored in a pair of 
property “handles” (really just 16-bit 
values) that are associated with the 
owner window. SetPropO is a con¬ 
venient way to associate arbitrary data 
with an arbitrary window handle. To 
ensure that the owner window has not 
already been subclassed the code 
checks that both these properties are 
unused. The last few lines of LwPopup- 
WndProcO’s UM_CREATE case initialize 
the popup’s extra window words to its 
control ID, its horizontal position relative 
to the start of the title bar, and to the 
unhighlighted state. The constants bCid, 
bXPos, and bState, defined at the top 
of ncbtn.c, are the byte offsets for 
each of the extra window words. The 
control ID and horizontal position are 
retrieved from the LPCREATESTRUCT, 
which is passed during the WM_CREATE 
case via IParam. The IpCreateParams 
field holds the value specified by the 
IpvParam passed to CreateUindow(). 

The next message handled by Lw- 
PopupUndProc() is UM_PAINT. The case 
calls the helper routine PaintPush() to 
do all the painting. PaintPush() will 
draw the entire pushbutton, in either 
the highlighted or unhighlighted state. 


This removes the need for 
WM_ERASEBKGND erasing —a good thing, 
since otherwise the button would seem 
to flash (the background would erase 
only to be repainted an instant later 
with the button graphic). LwPopupUnd- 
Proc() returns 0 whenever it receives a 
WM_ERASEBKGND message to prevent 
DefUindowProc() from erasing the 
background. 

PaintPush() is not a very exciting 
routine. It mimics the way a standard 
pushbutton displays itself, in both the 
highlighted and unhighlighted states. 
PaintPush() uses PatBlt() to erase 
the button face and DrawText() to dis¬ 
play the title text ( DrawTextf) provides 
the useful feature of interpreting an 
ampersand as an escape meaning draw 
the next character with an underline). 
PaintPush() then draws the pushbut¬ 
ton frame using four calls to PatBlt(). 
Since the pushbutton never receives 
the focus, PaintPush() always draws 
the frame in the thin, non-default style. 

PaintPushO next draws the four 
rectangles at the corners of the 
pushbutton’s frame in either COLOR_AC- 
TI/ECAPTION or COLORJNACTIVECAP- 
TION color, depending on whether the 
owner window is the active window or 
not. If it were not for this small detail, 
the corners would have random colors, 
since background erasing has been cir¬ 
cumvented and windows will not up¬ 
date the area under the popup push¬ 
button when drawing the top-level 
window’s caption. If the pushbutton is 
in the unhighiighted state, PaintPushO 
draws the white, two-border-thick high¬ 
light with a pair of PatBlt() calls. This 
causes an extra, border-thick square to 
be drawn at the upper right and lower 
left, but a subsequent call to draw the 
shadow will draw over the squares. This 
is faster than using four calls to Pat- 
Bit () to draw exactly the highlighted 
area. PaintPushO then draws the 
shadow, either at the left and top 
edges if the button is in the highlighted 
state, or the bottom and right edges if 
the button is unhighlighted. 

The next routine, LwSubclassProcO , 
looks for UM_M0VE messages 
received by the owner window. It 
calls EnumTaskWindows() to invoke 
FEnumUndf) for each non-child window 
owned by the current task. FEnumMndO 
checks if the current window is a 
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Figure 1 ncbtndmo.c creates two popup pushbuttons on its caption 


popup pushbutton by looking at its class name. If the window 
is a popup pushbutton, FEnumWndO calls SetUindowPos () to 
maintain its position relative to the owner window. Lw- 
SubclassProc () also traps the WM_DESTROY message, so that 
the two window properties used to hold the original owner 
window procedure can be deleted. You may have noticed 
that the subclass procedure is never removed. There is no 
technical need to do so. It will be there when the owner win¬ 
dow receives its last message; after the owner window is 
destroyed, the point is moot. 

To prevent a popup pushbutton from becoming the active 
window and deactivating the owner window, LwPopupWnd- 
Proc() returns the constant MA_NOACTIVATE in response to 
the UM_MOUSEACTIVATE message. Windows sends UM_MOUSEAC- 
TIVATE when the user presses the mouse button over an in¬ 
active window. The return value determines how Windows 
handles the mouse down action. MA_NOACTIVATE instructs 
Windows to send WM_M0USED0WN to the window, but not to 
activate it. Other possible return values are MA_ACTIVATE (ac¬ 
tivate the window before sending it the mouse down), MA_AC- 


TIVATEANDEAT (activate the window, but 
don’t send it the WMJIOUSEDOUN), and 
MA_ NO A CTIVATEANDEAT (don't activate 
the window, nor give it the mouse 
down). 

The remaining three message cases, 
m_LBUTTomom, um_mousemove, and 
WM_LBUTTONUP implement the mouse in¬ 
terface. On a mouse down, LwPopup- 
WndProc() captures the mouse so that all WM_MOUSEMOVE mes¬ 
sages will be received, regardless of the mouse cursor’s loca¬ 
tion. The state flag is set to the constant fBtnln (highlighted), 
and InvalidateRectf) and UpdateUindowf) are called to 
force the button to repaint itself. 

When a HM_M0USEM0VE message is received, and if the but¬ 
ton has previously captured the mouse, the code checks to 
see if the mouse pointer is over the popup window or not. 
The code tests the result with the previous state of the but¬ 
ton to see if the highlight state needs to be changed. If so, the 
state flag is updated, and the button is forced to repaint. 

When LwPopupUndProc() receives a WM_LBUTTONUP mes¬ 
sage and has captured the mouse, the code releases the 
mouse, sets the state flag to unhighlighted, and forces the 
window to repaint itself. It then checks to see if the mouse 
cursor was over the button when it was released and, if so, 
sends the owner window a UM_COMMAND notification of 
BNJLICKED. 

ncbtn.h (Listing 2) contains the interface to ncbtn.c (it 
consists solely of the prototype for HwndCreateCaption- 
Push()). ncbtndmo.c (Listing 3) is a small demonstration pro¬ 
gram (see Figure 1) that creates two popup pushbuttons on its 
caption. 

It is possible to write a program or DLL that uses ncbtn.c 
to place a pushbutton on all top-level window caption bars. A 
DLL would be easier to code, since the popup window proce¬ 
dure will end up getting called in the context of different ap¬ 
plications, and DLLs are well suited to situations where SS != 
DS. When the DLL initializes, it should enumerate all the top- 
level windows in the system, calling HwndCreateCaption- 
Push() for each. The DLL also needs to install a global CBTHook 
via SetWindowsHook() or SetUindowsHookEx(). This hook 
function will receive notifications when any window is 
created, allowing the DLL to install a popup pushbutton. 

The code in ncbtn.c will need to be changed in a couple 
of ways. First, the popup pushbutton window class needs to 
be registered as a global class (using the CS_GLOBALCLASS 
style flag). Without this flag, CreateWindow() for the popup 
window class would fail when executed in the context of 
other tasks. The other change is to replace the SendMessage() 
notification in the UM_LBUTTONUP case of LwPopupWndProc() to 
call a DLL-supplied routine instead. This is assuming, of course, 
that the purpose of the button is to allow the user access to 
some common functionality from all top-level windows. □ 
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A More Flexible MessageBox() 

Moshe Rubin 


Let's face it, the MessageBox() function in Microsoft Windows is downright con¬ 
venient. When all you need to do is display a text message to your user, Message- 
Box () does the job. Just pass it two far string pointers (the text and caption strings, 
respectively) together with the desired style and parent window, and Windows does 
the rest. What more could a Windows programmer ask for? 

Unfortunately, MessageBox() has its limitations. For one thing, it only accepts 
string pointers. If your application is designed correctly, your caption and text strings 
should reside in a resource file string table. In particular, this strategy makes your 
application easier to internationalize; by using resource strings instead of hard-coded 
strings, you can isolate foreign language changes to your code in a separate, 
resource-only DLL. However, programmers tend to use hard-coded strings in calls to 
MessageBoxf), because it is easier than allocating a buffer for each message string 
and calling Loadstring() to load the string. 

If you do use Loadstring() to fetch your strings from the resource file, you'll find 
that those strings are limited to 255 characters each (the largest string allowed in a 
resource file string table). In my applications, I occasionally display detailed and 
lengthy explanatory message boxes, some of which exceed 255 characters. Last, you 

might want to customize your text message (for ex¬ 
ample: “File %s could not be opened") by formatting it 
with parameters. MessageBoxf) does not provide you 
with a simple way of formatting your text string 
before displaying it. 
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Microsoft C/C++ v7.0a 
Zortech C++ v3.1 
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programmer since Windows 2.0. He holds a B.Sc in Computer Science, and is currently 
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Windows. 
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Listing 1 genmsgbx.c 

linclude <string.h> 

( 



linclude <windows.h> 

char 

szCaption 

[MAX RESOURCE STRING LEN]; 


char 

szText [MAX RESOURCE STRING LEN]; 

Idefine APPEND SYMBOL 

HGL0BAL 

hFormat 

= NULL; 

Idefine MAX RESOURCE STRING LEN 255 

LPSTR 

lpFormat 

= NULL; 

Idefine MAX WVSPRINTF OUTPUT 1024 

HGL0BAL 

hOutput 

= NULL; 


LPSTR 

IpOutput 

= NULL; 

int GeneralMessageBox (HWNO hWnd, 

BOOL 

bContinue 

= TRUE; 

HINSTANCE hlnst, 

LPL0NG 

IpParams 

= (LPL0NG) (fcnTextlD + 1); 

WORD wType, 

int 

Ret 

= 0; 

int nCaptionID, 




int nTextID, 

/* 



...) 

* Get the caption 

string. If <nCaptionID> is 
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To correct these deficiencies in 
MessageBox(), you could use the fol¬ 
lowing code: 

char Buffer [255]; 
char Final String [1024]; 

Loadstring (hlnst, TEXT_ID, 

Buffer, sizeof (Buffer)); 
wsprintf (Finalstring, Buffer, 

FileName); 

LoadString (hlnst, CAPTI0N_ID, 
Buffer, sizeof (Buffer)); 
MessageBox (Finalstring, Buffer, 
MB_0K); 

This code, however, is limited to a 
resource file string of 255 characters. In 
addition, you would have to duplicate 
in many places. The rest of this article 
describes a more powerful and flexible 
alternative to MessageBox (). 

GeneralMessageBox() 

To solve the MessageBoxO limita¬ 
tions mentioned above, I wrote the 
routine GeneralMessageBox() i n 
genmsgbx.c (Listing 1). GeneralMessage- 
Box() interprets its parameters as 
shown in Table 1. nCaptionID and 
nTextID are the resource file string 
table IDs of the caption and text strings, 
respectively. You can specify a text 
string up to 1024 characters long by 
beginning the text string with a tilde 
This tells GeneralMessageBox() to 
concatenate the nTextID and 
nTextID+1 strings. A tilde at the begin¬ 
ning of nTextID+1 will concatenate 
nTextID+2 to the previous two strings, 
and so on. If either nCaption or 
nTextID is zero, GeneralMessageBox() 
will expect to be passed a far string 
pointer via the corresponding lp- 
Caption or IpText parameters. Any ad¬ 
ditional parameters are used to format 
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NEW! 
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C CODE FOR THE PC 

source code, of course 


X/DOS and Xt/DOS (Xlib with X client and Xt toolkit for DOS; port X code to DOS; Xt/DOS requires X/DOS and 32-bit compiler) . . each $300 
ZIP Image Processor & Victor Image Library Version 2.2 (brightness, contrast, meree images, TIFF/GIF/PCX/bin, HP ScanJet support) . . $290 

The Snooper (Ethernet protocol analyzer for Novell NetWare and LAN Manager Networks; capture packets; real-time display).$275 

Embedded BIOS (full-featured, real-time input/output system; PC, XT AT; for example, 80186 with 8259 interrupt controller).$260 

C/C+ + Libraries by Code Farms (persistent C structures, ER models, dynamic arrays, database functions, Jolt Award winner).$250 

JlirboT^X (Release 3.0; HP, PS, dot drivers; CM fonts; LaTgX; MetaFont).$250 

Rogue Wave tools.h++ or math.h++ Class Library (extensive docs).each $240 

COMM-DRV (complete interrupt-driven serial communication libraries & device drivers; full source).$155 

TE Editor Developer’s Kit Ver. 3.0 (full screen editor, undo command, multiple windows; with Word Processing $230).$155 

Minix Operating System (Version 1.5; Unix-like operating system, includes manual; specify 5.25” or 3.5” diskettes).$150 

Delorie GCC for MS-DOS (Version 2.22' includes C+ +, assembler, DOS extender, 387 emulation; complete source code and makefiles) . . $150 

Lisp for DOS (Kyoto Common Lisp and CLISP; KCL includes Lisp-to-C translator for building mixed Lisp/C programs) .$140 

Ibrow (Version 4.1; programmer’s Windows-based editor; large files, help, undo/redo, drag-n-drop, function & type tags).$135 

Booter Tbolkit (floppy disk bootstrap routines, DOS file system, light-weight multitasking, windows, fast memory management) .$120 

386BSD Version 0.1 & LINUX Version 0.96 (two Unix clones for Intel 386).$100 

PC/IP (CMU/MIT TCP/IP for PCs; Crynwr drivers, NFS server, Bdale mailer, PCRoute/PCBridge, NDIS/ODI drivers, Beholder, more) . . . $100 

DA (disassembler for Microsoft’s New Executable (NE) binary files including Windows .exe, .drv, .dll, and .fit).$95 

Script Interpreter (a command script interpreter for DOS-based systems; C-like script language; lots of features).$90 

CELP 3.2c (Federal Standard 1016 Code Excited Linear Predictive voice sampling and encoding; voice over 4.8kbps).$80 

CPPCOMM (C+ + serial communications class library for DOS, Windows, OS/2 and NT; includes X/Y/Zmodem).$75 

ET Neural Net (back error propagation and Kohonen; specify DOS text, DOS VGS, or Windows).$75 

FlexList (doubly-linked lists of arbitrary data with multiple access methods; specify C or C++).$65 

Smalltalk for DOS (port of GNU Smalltalk using djgoc).$60 

Kier DateLib (all kinds of date manipulation; translation, validation, formatting, & arithmetic).$60 

Coder’s Prolog (Version 3.0; inference engine for use with C programs).$60 

PCCTS (Purdue Compiler Construction 'fool Set; ported to Microsoft C; like YACC and LEX together with lots of additional features) . . . $60 

Container Lite V 1.82 (C+ + & FLC wrapper emulators; portable, persistent containers of arbitrary data including pointers).$50 

BigFloat (arbitrary precision floating point arithmetic and functions; includes BCD conversion).$50 

EZCalc (ASCII algebraic expression evaluator, unlimited parenthesis nesting, symbols, 32 built-in functions, easily extended).$50 

Backup & Restore Utility by Blake McBride (multiple volumes, file compression & encryption).$50 

CLIPS Version 6.0 (rule-based expert system generator; Windows compatible; hardcopy manuals additional).$50 

SuperGrep (exceptionally fast, revolutionary text searching algorithm; also searches sub-directories).$50 

OBJASM (convert .obj files to .asm files; output is MASM compatible) .$50 

NIH Class Library & Book (basic C++ classes & Data Abstraction and Object-Oriented Programming in C+ + in softback by Keith Gorlen) . $50 

Editor Pack (20 public domain editors; micromacs 3.12 Stevie, Elvis, Moke, mg2a, DTE, Jove, Origami, CE & GRIEF).$50 

MicroC C Compiler (retargetable C compiler/optimizer, lots of docs, very portable, 8086 tables included; tables for 7 extra cpu’s $50) .... $50 

Exceptions for C (Ada-like exception handling for C programs; exceptions for any block; exceptions can be reraised).$45 

TOUR (beautiful traveling salesman problem solver, finds minimum length paths quickly, includes graphics & plotting programs) .$40 

APLfor DOS (full implementation in C, uses ASCII character set).$40 

Database Pack (9 databases - simple to complex: isam, bplus, AVL, SDB, ID, gdbm, Requiem, Ingres89, Postgres).$35 

COP (poor man’s C++; C macro package which implements C++in C) .$35 

RXC & EGREP Version 20 (Regular Expression Compiler and Pattern Matching; finite state machine from regular expression).$35 

Bison & BYACC (YACC workalike parser generators; documentation; includes C and C++ grammars) .$35 

Spell Pack (6 spelling programs, a hyphenator, 2 utility packs and a 60K word list: Ispell, Microsp, Sp, Cspella, Spell, Dawg, Soundex) .... $30 

REGX Plus (Version 3.0, search and replace string manipulation routines based on compiled regular expressions).$30 

GNU Awk & Dill for PC (both programs in one package).$30 

Big Number Pack (7 arbitrary precision arithmetic packages in C, one in Fortran but free Fortran-to-C converter is included) .$30 

Crunch Pack (30 file compression & expansion programs; now includes portable ZIP).$30 

OEmacs (full GNU Emacs for DOS and Windows DOS box; C+ + support, etags++, lots of .el files) .$25 

UUPCPack (UUCP for the PQ UUPC Version 1.11V, smail & snews) .$25 

PERL for MS-DOS (Version 4.019; C, sed, awk, and shell all rolled into one language; includes hardcopy docs).$25 

FLEX (fast lexical analyzer generator; new, improved LEX; BSD Version 23.6 with docs).$25 

GNU RCS (FSFs version of the Revision Control System; like Unix’s SCCS only better; keeps track of software development).$20 

Simple Socket Library (Unix, VMS and MS-DOS; sits on TCP/IP stack).$20 

Bywater BASIC Version 1.10 (complete BASIC interpreter and interactive programming environment).$20 

Data 

Moby Thesaurus II (6,000 root words, 2.5M synonyms, ’’common sense”, concept related searches) .$500 

Moby Pronundator II (175,000 words & phrases encoded with full IPA pronunciation & emphasis points).$265 

Moby Part-of-Speech II (230,000 words and phrases described by prioritized part(s)-of-speech).$170 

Moby Hyphenator II (185,000 words fully hyphenated/syllabified).$105 

Moby Words II (610,000 words & phrases with Scrabble(tm) word list, place names, baby names, acronyms, core list for spell checkers) . . . $100 

Dictionary Word List (234,932 words in alphabetical order).$60 

Roget’s 1911 Thesaurus.$40 

U. S. Cities (names & longitude/latitude of 32000 U.S. cities and 6,000 state boundary points).$35 

CIA World Bank II Database (13MB of maps, 5.7M vectors; coastlines, rivers, political boundaries; Africa, Asia, Europe, N. & S. America) $35 

The World Digitized (100,000 longitude/latitude of world country boundaries) .$30 

CD-ROMs 

BSD/386 (POSIX-compatible O/S; complete development package, full networking, kernel debugger, X11R5, DOS box; complete source code) $900 
FontMaster II CD Library (soft fonts for HP and HP compatible laser printers, 36 different type faces; 5,200 bit mapped fonts; 300MB) . . . $70 

Prime Time for Unix (Volume 2, No. 2, July, 1993; over 3.5GB of Unfit C code).$60 

W&lnut Creek Libris Britannia (over 600MB of the best of British boards; not all source included).$55 

Linux/GNU/X by Yggdrasil Computing (1st production release; run from the CD; TCP/IP & NFS; drivers; MPEG; SCSI support; lots more) . $45 

Knowledge Media Multimedia (625MB & 13,000 files; 1,232 sounds, 179 books, 100 movies, 114 stacks, 606 programs, 214 mods) .$40 

Whlnut Creek C User’s Group (Volumes 100 to 364).$40 

InfoMagic Unix (three public domain Unix systems: 386BSD (version 0.1), Linux (version 0.99.10), and NetBSD).$40 

InfoMagic Source Code (Berkeley Net/2 MACH, GNU, Interviews, X, Andrew, XFree, Demacs & Winemacs, djgpp, Modula-3, etc.) . . . $40 

Walnut Creek Giga Games (more games than you imagine could exist... 3,000 files; July 93) .$35 

Knowledge Media Languages & Operating Systems (640MB of compilers, libraries, and operating systems; source code & executables) . . . $35 

Walnut Creek X11R5 and GNU (XI1R5 with contributed and comp.sources.x, over 120 GNU programs, complete C source).$35 

Whlnut Creek Usenet and Simtel Unix-C (600MB).$35 

Austin Code Works Internet Warrior #1 (PC Internet tools: Gopher, Wais, Eudora, ph, Nupop, Thimpet, TCP/IP, FAQs, drivers, docs) ... $35 

Whlnut Creek Simtel 20 MSDOS Archive (C source code but lots of other stuff too).$20 

Sprite Network Operating System (source code & documentation of Ousterhout’s Sprite O/S; Sun and DECStation boot images).$20 


11100 Leafwood Lane much more ... ask for catalog FAX: (512) 258-1342 

Austin, Texas 78750-3587 USA E-mail: info@acw.com 

Free surface shipping for cash in advance For delivery in Texas add 7% MasterCard/VISA 
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Listing 1 continued 


* non-zero, use as ID. Otherwise, get string 

>= MAX_WVSPRINTF_0UTPUT) 

* pointer from variable parameter list. 

break; 

*1 

strcpy (szCaption, 

/* Concatenate the next resource string? */ 

If (nCaptlonID) 

bContinue = (szText [0] == APPEND SYMBOL); 

Loadstring (hlnst, nCaptionID, szCaption, 

lstrcat (IpFormat, (bContinue ? 

sizeof szCaption); 

szText + 1 : szText) ) ; 

else 

) 

1strcpy (szCaption, (LPSTR) *lpParams++); 

/* Format string with variable parm list (if any) */ 
if ((hOutput = GlobalAlloc (GHND, 

/* Allocate buffer to hold the string resource. */ 

if ((hFormat = GlobalAlloc (GHND, 

MAX_WVSPRINTF_0UTPUT) ) == NULL) 

MAX WVSPRINTF OUTPUT)) “ NULL) 

goto exit; 

goto exit; 

if ((1 pOutput = GlobalLock(hOutput)) == NULL) 

if ((IpFormat - GlobalLock (hFormat)) == NULL) 

goto exit; 

goto exit; 


wvsprintf (lpOutput, IpFormat, IpParams); 

/* Fill <lpFormat> with the full format string. */ 


if (nTextID == 0) 

/* Display the message box. */ 

1strcpy (IpFormat, (LPSTR) *lpParams++); 

Ret = MessageBox (hWnd, 

el se 

lpOutput, 

while (bContinue) 

szCaption, 

i 

/* 

wType); 

* Get the text string. If <nCaptionID> is 

exit: 

* is non-zero, use as ID. Otherwise, get 

if (IpFormat) GlobalUnlock (hFormat); 

* string pointer from variable parameter 

if (hFormat) GlobalFree (hFormat); 

* list. 


*7 

if (lpOutput) GlobalUnlock (hOutput); 

if (Loadstring (hlnst, nTextID++, 

if (hOutput) GlobalFree (hOutput); 

szText, sizeof szText) == 0) 


break; 

return (Ret) ; 

} 

/* Don't overflow <lpFormat>. */ 

/* End of File */ 

if ((lstrlen (IpFormat) + lstrlen (szText)) 
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the text string via the wvsprintfO function call. General- 
MessageBoxf) returns the same values as MessageBox(). 

A Few Simple Examples 

demo.c (Listing 2) presents a sample application 
demonstrating different forms of GeneralMessageBox() calls. 
As Figure 1 shows, demo.exe provides a menu that lets you 
display any of four combinations of the caption and text string 
IDs. The header file for this application is in demo.h (Listing 3) 
and the resource definitions are in demo, rc (Listing 4). 


When the user selects IDM_N_N, the program specifies non¬ 
zero values for the caption and text string IDs. The text string 
ID begins with a tilde (as does the successive ID), so the result¬ 
ing text string will consist of three string table entries. The 
three formatting strings required by the final text string are 
added at the end of the function call. As seen in this example, 
you must pass all string pointers as far pointers, casting to 
LPSTR if necessary. The reason is that GeneralMessageBox () 
takes a variable number of arguments, so the compiler cannot 
infer from its function prototype which arguments should be 


Table 1 GeneralMessageBoxQ arguments 

hWnd 

Handle of parent window, or NULL. 

hlnst 

Instance of module containing string resources. 

wStyle 

Same as fourth argument to MessageBoxO- 

nCaptionlD 

Resource ID of caption string. 

nTextID 

Resource ID of string containing message text. 

lpCaption 

Pointer to caption string, if nCaptionlD is zero. 

IpText 

Pointer to message text string, if nTextID is 
zero. 

args 

Other wsprintfQ-style arguments. 


Listing 2 demo.c 


linclude <windows.h> 
linclude "demo.h" 

HINSTANCE hlnst; 

#ifdef _BORLANDC_ 

#pragma argsused 
lendif 

BOOL CALLBACK _export DialogProc (HWND hWnd, 

UINT message, WPARAM wParam, LPARAM IParam) 

{ 

if (message == WMJNITDIALOG) 
return TRUE; 

else if(message »■ WM_COMMAND) 
if(wParam =■ IDM_N_N) 

GeneralMessageBox (hWnd, hlnst, 

MB_0K, IDS_CAPTION, IDS_TEXT, 
(LPSTR) "Text Parm #1", 
(LPSTR) "Text Parm #2", 
(LPSTR) "Text Parm #3"); 

else if(wParam == IDM_N_0) 

GeneralMessageBox (hWnd, hlnst, 

MB_0K, IDS_CAPTION, 0, 
(LPSTR) "This is a user TEXT string (%s)", 
(LPSTR) "Text Parm #1"); 

else if(wParam == IDM_0_N) 

GeneralMessageBox (hWnd, hlnst, 

MB_0K, 0, IDS_TEXT, 
(LPSTR) "This is a user CAPTION string", 
(LPSTR) “Text Parm #1", 
(LPSTR) “Text Parm #2", 
(LPSTR) "Text Parm #3"); 

else if(wParam == IDM_0_0) 

GeneralMessageBox (hWnd, hlnst, 

MB_0K, 0, 0, 

(LPSTR) "This is a user CAPTION string", 
(LPSTR) "This is a user TEXT string (%s)", 
(LPSTR) "Text Parm #1"); 
else if(wParam == IDCANCEL || wParam == IDOK) 

{ 


Listing 2 continued 

EndDialog(hWnd, FALSE); 
return TRUE; 


/ 

return FALSE; 

) 


#ifdef _BORLANDC_ 

Ipragma argsused 
lendif 

int PASCAL WinMain (HINSTANCE hlnstance, 

HINSTANCE hPrevInstance, LPSTR lpCmdLine 

int nCmdShow) 

l 

hlnst = hlnstance; 

DialogBox(hInstance, "DemoDialog", NULL, 
return TRUE; 

} 

DialogProc); 

/* End of File */ 
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Figure 1 Demonstration program for 
GeneralMessageBoxQ 


cast to LPSTR. If you are using the large memory model, this is 
not a problem since all your pointers will be far anyway. 

The IDM_N_0 case passes GeneralMessageBox () an 
nTextID value of zero. This requires you to pass a far text 
string pointer via IpText. The formatting string required by 
this text string is added at the end of the function call. 

The IDM_0_0 case is an improved version of MessageBoxO. 
As is the case with MessageBoxO, both the caption and text 
strings are passed as far string pointers. With General- 
MessageBoxf), however, you get the added bonus of being 
able to pass formatting elements (for inclusion in the text 
string) by adding them to the end of the function call. 

Afterthoughts 

GeneralMessageBox () does have several intentional limita¬ 
tions. Handling all these special cases would have turned 
GeneralMessageBox () into an unwieldy Swiss Army knife. The 
limitations include the following: 

• You should not define a resource file string ID of zero. This 
is because an ID value of zero means “look for the far 
string pointer in a later parameter.” 


Listing 3 demo.h 


Idefine IDM N N 

101 


#define IDM 0 N 

102 


#define IDM N 0 

103 


#define IDM_0_0 

104 


#define IDS CAPTION 

1 


#define IDS_TEXT 

2 


#i fndef RC INVOKED 

int GeneralMessageBox (HWND 

hWnd, 


HANDLE 

hlnst, 


WORD 

wType, 


int 

nCaptionID, 


int 

nTextID, 

#endif 

/* End of File */ 




=j_ Caption from Resource File 

Text Line #1 from Resource File [Text Parm #1). 
Text Line #2 from Resource File (Text Parm #2). 
Text Line #3 from Resource File (Text Parm #3). 


OK 


Figure 2 GeneralMessageBoxQ in action 


• The caption string cannot be formatted with optional 
parameters. Similarly, there is no way to create one long 
caption from several smaller resource file strings. 

• The longest possible text string displayable by General - 
MessageBoxO is 1024 characters. This is due to 
wvsprintfO' s output buffer limit of the same size. 

• The order of the style, caption, and text parameters differs 
between the MessageBoxO and GeneralMessageBox() 
functions. Preserving the original parameter order would 
have led to a confusing calling interface. 

I believe, however, that these limitations are marginal and 
should not pose any problems. The limitations are more than 
offset by the ease, flexibility, and power provided by General¬ 
MessageBox (). If you need to customize your message box 
text string, or are planning on internationalizing your applica¬ 
tion, GeneralMessageBox() might be just the routine you've 
been waiting for. □ 


Listing 4 demo.re 


linclude <windows.h> 

#include "demo.h" 

DemoMenu MENU 
BEGIN 

POPUP "&Test" 

BEGIN 

MENUITEM "RC CaptionrRC Text". IDM_N_N 
MENUITEM "RC Caption:User Text". IDM_N_0 
MENUITEM "User Caption:RC Text", IDM_0_N 
MENUITEM "User Caption:User Text", IDM_0_0 
END 
END 

STRINGTABLE 
{ 

IDS_CAPTI0N, 

ids'text, 

IDSJEXT+1, 

IDS_TEXT+2, 


DemoDialog DIALOG 18, 18, 114, 53 
STYLE WS_P0PUP | WS_CAPTI0N | WS_SYSMENU 
CAPTION "GeneralMessageBoxQ" 

MENU DemoMenu 

BEGIN 

END 


"Caption from Resource File" 

"~Text Line #1 from Resource File (%s).\n" 
"~Text Line #2 from Resource File (%s).\n" 
"Text Line #3 from Resource File (%s)." 
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Three Tips for Faster 
Graphics 

Paul Bonneau 



=E3= 

Borland C++ v3.1 


Symantec C++ v6.0 


Visual C++ vl.o 


Borland Object Pascal v7.0 


When it comes to high-speed graphics, Windows 
has never been a great choice. This article presents 
some simple optimizations which may help you 
substantially improve your application's graphics 
performance. 


ExtTextOut() Is NOT Faster than PatBltO 

In Windows 3.0 (and 2.x) it was faster to use ExtTextOut() to paint a rectangle 
with a solid color than to use PatBltO (or one of the higher level APIs that sat on 
top of PatBltO, such as FillRect()). Using ExtTextOut() to fill a rectangle is made 
possible by the fact that not only does ExtTextOut() display text, it also fills the 
background with the current background color. Thus if you call ExtTextOut() with 
no text string and use the ET0_0PAQUE value for the fuOptions parameter, the func¬ 
tion fills the rectangle described by the Iprc parameter. 

Using ExtTextOut() had the added benefit that your code did not have to deal 
with brushes. Contrast the following routine to paint a rectangle with a given color 
using ExtTextOut(): 

void RectClr(HDC hdc, RECT * prc, C0L0RREF clr) 

{ 

C0L0RREF clrSav; 

clrSav = SetBkColor(hdc, clr); 

ExtTextOut(hdc, 0, 0, ET0_0PAQUE, prc, NULL, 0, NULL); 

SetBkColor(hdc, clrSav); 

} 


with the same routine written using PatBlt()-. 

void RectClr(HDC, RECT * prc, C0L0RREF clr) 

{ 

HBRUSH hbrs, hbrsSav; 
if (!(hbrs = CreateSolidBrush(clr))) 
return; 

hbrsSav = SelectObject(hdc, hbrs); 

PatBlt(hdc, prc->left, prc->top, prc->right - prc->left, 
prc->bottom - prc->top, PATCOPY); 
if (hbrsSav) 

SelectObject(hdc,hbrsSav); DeleteObject(hbrs); 

} 


Paul Bonneau is a Software Design Engineer at a major software firm. He was a 
developer of HyperChem, a molecular modeling system marketed by Autodesk. 
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Listing 1 fastline.h — Header file for fastline.c 


Listing 2 continued 

j*****************************************************j 

/* fastline.h */ 

/* -- Interface to fast thick line drawing routine. */ 

j**************************************************** * j 

void FastLine(HDC hdc, POINT rgpt[2], int dxThick, 

COLORREF clr); 

/* End of File */ 


int dxy; 

/* Determine endpoints. */ 

dpt.x = prgpt[l].x - prgpt[0].x; 

dpt.y = prgpt[l].y - prgpt[0].y; 

dxy = (int)WSqrtLw(((long)dpt.x * dpt.x) + 

((long)dpt.y * dpt.y)); 
rgpt[0].x = 

prgpt[0].x - MulDiv(dxHalf, dpt.y, dxy); 





Listing 2 fastline.c - Optimized line drawing 
routine for Windows 


rgpt[0].y = 

prgpt[0].y + MulDiv(dxHalf, dpt.x, dxy); 
rgpt[l].x = 

rgpt[0].x + MulDiv(dxPen, dpt.y, dxy); 



!*******************************************★*★★****★★j 


rgpt[1].y = 

/* fastline.c */ 


rgpt[0].y - MulDiv(dxPen, dpt.x, dxy); 

/* — Routine to draw a thick line quickly. */ 

j*****************************************************J 


rgpt[2].x = rgpt[l].x + dpt.x; 
rgpt[2].y = rgpt[l].y + dpt.y; 
rgpt[3].x = rgpt[0].x + dpt.x; 

#include <windows.h> 


rgpt[3].y = rgpt[0].y + dpt.y; 

finclude "fastline.h" 


if ((hbrs = CreateSolidBrush(clr)) != NULL) 



hbrsSav = SelectObject(hdc, hbrs); 

UINT WSqrtLw(long lw); 


hpenSav = 


SelectObject(hdc, GetStockObject(NULL PEN)); 

void 

FastLine(HDC hdc, POINT prgpt[2], int dxPen, 


Polygon(hdc, rgpt, 4); 

) 

COLORREF clr) 

j*****************************************************J 


if (hbrsSav != NULL) 

/* -- Draw a line as quickly as possible. */ 


SelectObject(hdc, hbrsSav); 

/* -- hdc : Device context to draw into. */ 


if (hbrs != NULL) 

/* -- prgpt : End points of line. */ 


DeleteObject(hbrs) ; 

/* -- dxPen : Thickness of line. */ 

/* --clr : Color to draw line. */ 

!******************* *************************** *******j 

\ 


if (hpenSav != NULL) 

SelectObject(hdc, hpenSav); 
if (hpen != NULL) 


DeleteObject(hpen); 

HPEN hpen = NULL; 

HPEN hpenSav = NULL; 

HBRUSH hbrs = NULL; 


} 

UINT 

HBRUSH hbrsSav = NULL; 


WSqrtLw(long lw) 

int dxHalf = (dxPen + 1) » 1; 


^*****************************************************J 

int x, y, dx, dy; 


/* -- Perform an integer square root operation. */ 

if (dxPen == 1) 

( 


{ 

UINT wHi, wLo; 

/* Optimize for thin lines. */ 

if ((hpen = CreatePen(PS SOLID, 1, clr)) != 


long lwT; 

/* Find largest power of 2 greater than lw. */ 

NULL) 


hpenSav = SelectObject(hdc, hpen); 


for (lwT = wHi = 1; lwT < lw; wHi «= 1, lwT «= 2) 

MoveTo(hdc, prgpt[0].x, prgpt[0].y); 

LineTo(hdc, prgpt[l].x, prgpt [1] .y) ; 

1 


» 

if (lwT == lw) 

else if (prgpt[0].x == prgpt[l].x) 


return wHi ; 

i 

/* Optimize for vertical lines. */ 


/* Binary search: wLo"2 < lw <= wHi~2 */ 

x = prgpt[0].x - dxHalf; 
dx = dxPen; 


for (wLo = wHi » 1; wLo < wHi ; ) 

{ 

y = prgpt[0].y; 


UINT wMid = (wLo + wHi) » 1; 

dy - prgpt[l].y - y; 
goto LDrawRect; 


lwT = (long)wMid * wMid; 

J 

else if (prgpt[0].y == prgpt[l].y) 


if (lwT < lw) 

( 


wLo = wMid + 1; 

/* Optimize for horizontal lines. */ 


else if (lwT > lw) 

x = prgpt[0].x; 


wHi = wMid; 

dx = prgpt[1].x - x; 


else 

y = prgpt[0].y - dxHalf; 
dy = dxPen; 


return wMid; 

} 

LDrawRect: 


/* Return whichever side is closest. */ 

if ((hbrs = CreateSolidBrush(clr)) != NULL) 


wLo = wHi - 1; 

hbrsSav = SelectObject(hdc, hbrs); 


return ((long)wHi * wHi - lw < lw - (long)wLo * wLo) 

PatBlt(hdc, x, y, dx, dy, PATCOPY); 


? wHi : wLo; 

} 

/ 

else 


/* End of File */ 

l 

POINT dpt, rgpt[4] ; 
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Table 1 The effect of client alignment on speed 


Aligned stripes 

Unaligned stripes 

With CS BYTEALIGNCLIENT 

768 ms 

823 ms 

Without CS_BYTEALIGNCLIENT 

2213 ms 

2210 ms 


In Windows 3.1, however,' Pat- 
Bit fj'ing a solid color has been sped 
up considerably. I wrote a program to 
benchmark the two methods (included 
with the electronic code distribution; 
see Contents pages for source code 
availability). It first performs 1000 itera¬ 
tions of the ExtTextOut() method (in¬ 
line to avoid the penalty for calling a 
wrapper procedure), then 1000 itera¬ 
tions of the PatBlt() method. On my 
woefully slow OAK SVGA card (a cheap, 
run-of-the-mill adapter, housed in an 
80486 25MHz machine), using the stand¬ 
ard Windows 3.1 vga.drv, ExtText¬ 
Out () required 8799 milliseconds but 
PatBltf) only consumed 5624 mil¬ 
liseconds. This is amazing given the fact 
that the PatBlt() version has to create, 
destroy, and select two brushes. On my 
blindingly fast local bus ATI Ultra PRO (in 
my fast machine), again using the 
standard vga.drv, ExtTextOut() re¬ 
quired 1521 milliseconds, whereas Pat- 
Bit () required 850 milliseconds. 

When I first set out to write this ar¬ 
ticle, I wasn't planning on including the 
"NOT" in the title for this section. It 
wasn’t until I ran the benchmark that I 
realized I had to revise my “wisdom" 
about ExtTextOut(). What’s worse, I 
have mentioned the “fact” that Ext¬ 
TextOut () is faster in previous Q&A 
columns in this magazine. I hereby 
retract it, with apologies to those I’ve 
misled. 

Good Alignment Helps 

In the Windows SDK description of 
the WNDCLASS structure (Programmer’s 
Reference, Volume 3: Messages, Struc¬ 
tures, and Macros, page 425) a couple of 
innocuous-looking class styles are docu¬ 
mented: 

CSJYTEALIGNCLIENT Aligns the 
client area of a window on the byte 
boundary (in the x-direction). 

CSJYTEALIGNWINDOU Aligns a win¬ 
dow on the byte boundary (in the x- 
direction). This flag should be set by 
applications that perform bitmap 
operations in windows by using the 
Bit Bit function. 

In fact, proper byte alignment can 
dramatically speed up drawing opera¬ 
tions, depending on the architecture of 
the video adapter. Unfortunately, if you 
follow the SDK documentation’s advice, 


you will probably never see the im¬ 
proved speed. The CSJYTEALIGNCLIENT 
style, not csjytealignuindow, as the 
documentation would have you believe, 
is the important one for applications 
performing raster operations (such as 
PatBltf), BitBltf), StretchBlt(), 
SetDIBitsToDevicef), 
and StretchDIBitsf)). Unless your 
window has no border, or has one that 
is a multiple of eight pixels, the 
CSJYTEALIGNWINDOU style almost 
guarantees that your window’s client 
area will not start on a byte boundary. 

Byte boundaries are significant for 
VGA apdaters. VGA memory is arranged 
as four one-bit planes. Each time you 
write a pixel to the VGA, you are ac¬ 
cessing one bit in four different bytes of 
video memory. By the same token, you 
can access any combination of the 
eight pixels, starting on a byte bound¬ 
ary, and still be accessing those same 
four bytes of video memory. The speed 
advantage of alignment is not an issue 
on a 256-color SVGA adapter, where 
each pixel occupies one complete byte 
of memory. 

1 added a benchmark to the 
bench.exe program to test drawing a 
series of vertical stripes along the width 
of the main window’s client area. I used 
PatBltf) to draw the stripes, alternat¬ 
ing between the BLACKNESS and WHITE¬ 
NESS ROP codes (the currently selected 
brush is not used with these ROP 
codes). The benchmark tests 16-bit 
wide stripes; the first series is aligned 
on a byte boundary, and the next 
series starts one pixel past the the start 
of a byte boundary. I compiled the pro- 
gram both without the 
CSJYTEALIGNCLIENT style, and with 
the style present. Instead of running the 
program full-screen, I tiled it with Pro¬ 
gram Manager, such that bench.exe is 
the window on the right. Without the 
CSJYTEALIGNCLIENT style, this places 
the outside of the window’s border at 
pixel location 320 (the standard vga.drv 


driver controls a display surface 
640x480 pixels), a byte boundary. My 
borders are set to four pixels, so for the 
non-CSJYTEALIGNCLIENT case, the 
client area will not start on a byte 
boundary. 

The benchmark outputs 1000 stripes 
in each set. The results are displayed in 
Table 1, in milliseconds. As you can see, 
the aligned case took about one-third 
the time of the unaligned case. There is 
also a small improvement in the aligned 
stripes versus the unaligned ones when 
the client area is aligned. Keeping your 
client area on a byte boundary can be 
a cheap way to improve performance. 


Notice to Our 
Subscribers 

Occasionally, Windows/DOS 
Developer’s Journal makes its 
mailing list available to vendors 
of products we think our 
readers will find interesting. Cur¬ 
rent subscribers receive free in¬ 
formation in the mail from 
these vendors. 

If you prefer that your name 
not be used in these mailings, 
please let us know. Just copy or 
clip this form and send it with 
your name and address to: 
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Table 2 Rectangles versus thick line drawing speed 

Thickness (pixels) 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

Pen (milliseconds) 

2876 

2878 

2889 

2894 

2931 

2941 

3043 

3045 

3062 

3062 

3080 

3083 

3094 

3069 

3165 

Rectangle (milliseconds) 

86 

88 

90 

92 

93 

96 

136 

137 

138 

138 

143 

142 

143 

134 

174 


The Brush Is Speedier than the Pen 

Pens wider than one pixel are slow — very slow. When 
Windows' GDI draws a wide pen on the display device, it 
“caps’’ the end of the line with a filled semi-circle. The semi¬ 
circle actually protrudes past the end point of the line. This 
allows for smooth joins when two or more connected line 
segments are being drawn (on Postscript printers you can con¬ 
trol line caps using the LINECAPS Escape()). But in many 
cases, you may want only a single line, and you may want 
the line to actually end at the end points you specify. There 
are a couple of optimizations you can use if this is the case. 

If you are drawing horizontal or vertical thick lines, you can 
get the greatest speed enhancement by using PatBltf) to 
draw the line as a rectangle. I took measurements of the time 
required to draw horizontal and vertical lines the width and 
height of the screen, using different pen widths, on my 80486 
25MHz machine (the one with the slow OAK adapter). Table 2 
contains the results. The top line shows the width of the pen, 
and the next two lines show the time in milliseconds to draw 
100 alternating horizontal and vertical lines. The timings in¬ 


clude the time to create whatever pens and brushes are 
necessary, and to select them in and out of the device con¬ 
text being drawn to, since this is typical of many applications. 
As you may expect, the table shows that the thicker the pen, 
the longer it takes to draw a line. But what is surprising is 
that up to a line width of 7 pixels, the PatBltf) method is 
around 30 times faster. Even at 14-pixel-thick lines, the Pat- 
Blt() method is still 21.6 times faster. I would call this a good 
optimization. 

You have to be careful though, because some accelerated 
video cards may do the line drawing in hardware, even for 
thick lines. It would be a shame to optimize your code for the 
lowest common denominator at the sacrifice of performance 
on high-end adapters. This may be the reason GDI does not 
perform this optimization before calling the display driver. One 
solution might be to actually test the difference in speed 
either in your startup code (which the user could find annoy¬ 
ing) or during software installation (which has the problem of 
not tracking changes users later make to their hardware). Per¬ 
haps a good compromise is to place a fOptimizeLineDraw flag 
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Table 3 Polygons versus thick line drawing speed 


Thickness (pixels) 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

Pen (milliseconds) 

2956 

2976 

2999 

3012 

3049 

3070 

3087 

3102 

3120 

3124 

3145 

3148 

3165 

3167 

3181 

Polygon (milliseconds) 

2203 

2214 

2234 

2243 

2263 

2266 

2282 

2289 

2302 

2304 

2318 

2318 

2331 

2332 

2341 


in your application’s initialization file, with a default value that 
corresponds to your assumed target audience. Of course, then 
you have the problem of documenting the flag or providing a 
user interface to manipulate the flag. Nobody ever said 
software was easy. 

There is an interesting anomaly in the numbers for both 
methods when going from the 15-pixel-thick case to the 16- 
pixel-thick case. The time delta takes a rather steep jump, 
compared to the deltas preceding it. This is another example 
of byte-aligned output, bench.exe starts the lines at pixel 1, 
not 0, so that at a width of 15 pixels, the last pixel is ending 
on a byte boundary. Adding just one more pixel means the 
next byte is being written to, hence the slowdown. A lesser 
but still significant jump can be seen in the transition from 7- 
to 8-bit-thick pens. 

The other optimization is to use Polygon() for drawing 
diagonal thick lines. An interesting article by Ron Gery on the 
Microsoft Developer Network CD (“Primitive Cool,” created 
March 17, 1992) contains an explanation of how GDI draws 
wide lines. Gery explains that GDI uses Polygon () to draw the 


line, with an approximation of a semi-circle at each end point 
(you can readily see the points of the semi-circle if you draw 
a line with, say, a 100-pixel pen). The time to compute the 
vertices along the semi-circles and the extra time Polygon () 
spends drawing them must be considerable, since it takes 
roughly only 75 percent of the time to draw a polygon 
without the caps. Table 3 shows the times to draw diagonal 
lines using the two methods. Once again, the top row of the 
table shows the width of the line, and the bottom two rows 
show the time in milliseconds to draw 100 diagonal lines (also 
on my slow machine). While this does not show the wild gain 
possible with horizontal and vertical lines, it is still a significant 
increase you can take advantage of. 

fastline.h (Listing 1) contains the prototype and 
fastline.c (Listing 2) contains the source code to implement 
a routine named FastLinef) which embodies the above op¬ 
timizations. FastLine() takes as parameters the device con¬ 
text to draw the line in, an array of two points which define 
the line, the required thickness of the line, and the desired color. 
The routine first checks to see if the requested thickness is one 
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pixel; if so, it uses MoveTo() and LineTo() (one-pixel-thick 
lines are very fast). Otherwise, it checks for a vertical or 
horizontal line, and uses PatBlt() to draw the rectangle. If 
the line does not meet the above conditions, Polygon() is 
used draw the line, without the semi-circular caps. The code for 
this last case is not particularly comprehensible, since I optimized 
it as much as possible. It embodies vector methods for determin¬ 
ing the normal to a line, and for determining the vector of a 
given magnitude along the normal (the top of the line). 


The problem and solution can be stated fairly simply (refer 
to Figure 1): Given two points, A and B, we need to find the 
points C, D, E, and F, such that the line CD is perpendicular to 
AB, and whose midpoint intersects A, and such that the line EF 
is perpendicular to AB, and whose midpoint intersects B, and 
such that the length of both CD and EF is the required pen 
thickness. The polygon to draw is then given by CDFE. The 
direction of CD is determined by forming the three-space 
cross-product of the vector AB with the unit vector along the 
z-axis — call this result the vector X. CD can be computed by 
multiplying the required pen thickness by the unit vector 
along X. Since CD is to intersea A at CD's midpoint, the veaor 
CA can be computed to locate the point C. CA is the unit 
veaor along X multiplied by half the width of the pen. Now 
that the points C and D are known, E and F can be found by 
adding the vector AC. FastLinef) uses an integer square root 
routine, USqrtLw(), to determine the magnitude of X, so that 
the unit vector along X can be computed. 

Summary 

I should mention in closing that when obtaining GDI 
benchmarks, it is very important not to have a background DOS 
box running. Since Windows running in enhanced mode time- 
slices between DOS VM's and the system VM (the one that runs 
Windows programs), the results can be skewed. I hope that 
these simple tips and the code for FastLine() can help your 
application realize its potential graphics performance. □ 
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Ron Burk 


Base WUIMAN Objects 

Ron Burk 

This is the fourth in a series of columns about the design and implementation of 
WUIMAN (the Windows User Interface MANager). Previous columns have described 
the basic design of WUIMAN as a hierarchical tree of objects, each of which cor¬ 
responds to a user interface element such as a window or menu. I have created 
basic classes to support saving the hierarchical tree to disk and manage generic lists 
of pointers. This column describes the implementation of the basic WUIMAN object, 
from which all others in the hierarchical tree are derived. 

In defining AUuiObject, I am defining default behavior for some standard 
WUIMAN attributes. As discussed in previous columns, WUIMAN uses attributes to 
handle three Visual Basic-like concepts: properties, methods, and events. I will use a 
prefix naming convention to distinguish them (“p_” for properties, “m_” for methods, 
and "e_" for events). These prefixes can be masked by the user interface layer so 
that the end user sees a style more like that of Visual Basic. 

Errors 

Now that I'm writing code that returns values to functions outside of WUIMAN IfiUui- 
Object: :Get(), for example), I have to worry about handling errors, wuierror.h (Listing 
1) contains a header file that is the sum total of my error-handling efforts for WUIMAN. 
The return value of getting or setting a WUIMAN object attribute is a long, and I'm 
simply reserving a chunk of the most negative values for error codes. One of the simple 
but invaluable benefits that the ANSI C standard wrought is limits.h, which gives you a 
fighting chance to write code that handles numbers in a portable fashion; here I take 
advantage of LONG_MIN, the largest signed negative value for a long. 

I define a value that is the most positive error number, which I can use to check 
for errors like this-. 

if(Error < WUIMAN_ERRORS) 

// then it's an error 

UUIMAN_ERRORS has some slop added onto it. The reason is that UUIMAN_ERRORS will 
creep up as I add new error codes, so the slop means that generic tests for errors 
like the if statement just shown will still work for a while, even if I've been too lazy 
to recompile the entire system. This would be asking for trouble in a multi-program¬ 
mer development effort. 

I could think of a lot more elaborate schemes than this, but why bother? In the 
timeless words of Frederick Brooks, “Plan to throw one away; you will, anyhow." A 
minimal error-handling scheme will handle a majority of problems just fine, and I'm 
not likely to have a good understanding of how to better design error-handling until 
I get most of the system coded, at which point I can see what classes of errors can 

arise. Implementation invariably uncovers error condi¬ 
tions you couldn’t envision during earlier stages. Ver¬ 
sion 2 will be time enough for elaborate error han¬ 
dling, and some PC compilers may even support C++ 
exception handling by then. 


;H3 


Borland C++ v3.1 
Symantec C++ v6.0 
Visual C++ v 1.0 


Ron Burk is the editor of Windows/DOS Developer's Journal and has been a programmer 
for 12 years. He is working on a book tentatively titled WinHelp for Programmers and 
Technical Writers. You may contact him at Burk Labs, P.O. Box 3082, Redmond, WA 
98073-3082. CIS: 70302,2566. Internet- ronb@rdpub.com (". . . !uunet!rdpub!ronb"). 












AWuiObject 

wuiobjdb.c (Listing 2) contains the implementation of A- 
UuiObject. As messages that get or set attributes flow down 
the hierarchical tree, WUIMAN object will either handle the 
message or pass it to the C++ class it inherits from. Since all 
objects in the WUIMAN tree descend from AUuiObject, it 
defines the most general behavior of all these objects. This 
implementation of AUuiObject provides default handling for 
the following methods: 
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the parameters passed to the function and the values returned. 


To order call Programmers Paradise 1-800-445-7899. 
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Listing 2 continued 


linclude "wuistd.h" 
linclude "wuiobjdb.h" 
linclude "wuierror.h M 
linclude "wuimanui.h" 

II Hmm, these should probably be in wuiobjdb.h 
static const TWuiName M_DELETE("m_Delete"); 

static const TWuiName M_ISA("m IsA"); 

static const TWuiName M_RENAMEX“m_Rename M ); 

//////////////////////////////////////////////////////////// 
// TWuiObjects - Provide arrays of AWuiObject pointers 


// TWuiObjects - initialize object with desired array size. 

TWuiObjects::TWuiObjects(Int Size) 

: TWulGenericLlst(Size) 

{ MEMBERASSERT(); 

} 


Listing 1 wuierror.h — WUIMAN error codes 


II wuierror.h - WUIMAN error code definitions. 

#ifndef WUIERROR_H 
#define WUIERROR_H 

linclude <1imits.h> 

// Some object name in the path did not exist 

const long WUIMAN_ERR_BAD_PATH = (L0NG_MIN+1); 

// Target does not support the specified attribute 
const long WUIMAN_ERR_BAD_ATTR = (L0NG_MIN+2); 

// So adding new errors may not immediately 
// break existing code. 

const long WUIMAN_ERR_SLOP = 100; 

// use "if(Error < WUIMAN_ERRORS)" to detect 
// an error. 

const long WUIMAN_ERRORS = (L0NG_MIN+2 

+WUIMAN_ERR_SLOP); 

lendif 

/* End of File */ 


Listing 2 wuiobjdb.c — Implementing AWuiObject 


// wuiobjdb.c - implement WUIMAN object database. 

linclude <ctype.h> 
linclude <errno.h> 
linclude <string.h> 
linclude <windows.h> 
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• m_Delete —This method asks the target object to delete it¬ 
self from the tree. 

• m_Rename —This method asks the target object to change 
its name to a new name. 

• mJsA —This method inquires whether the target object is 
compatible with a given class. 

mDelete 

WUIMAN objects reside in a hierarchical tree, but there are 
only downward pointers in this tree — an object does not 


Listing 2 continued 


11 (private) 

// Find - Return position of named child 

int TWuiObjects::Find(const TWuiName Which) 

{ MEMBERASSERT(); 

for(int iChild = 0; iChild < NObjectsQ; ++iChild) 
if(Get(iChild)->Name() == Which) 
return iChild; 
return -1; 

} 

void *TWuiObjects::Insert(AWuiObject *NewObject, const TWuiName To) 
{ MEMBERASSERTQ; 

ASSERT(NewObject != 0); 

return Insert(NewObject, Find(To)); 

} 

void *TWuiObjects::Insert(AWuiObject *NewObject, int Position) 

{ MEMBERASSERTQ; 

ASSERT(NewObject != 0); 

return TWuiGenericList::Insert((void *)NewObject, Position); 

} 

AWuiObject *TWuiObjects::Get(const TWuiName Which) 

{ MEMBERASSERTQ; 

int Position ■ Find(Which); 

if(Pos1tion >= 0) 

return Get(Position); 

else 

return 0; 

} 

AWuiObject *TWui0bjects::Remove(const TWuiName Which) 

{ MEMBERASSERTQ; 

int Position ■ Find(Which); 

if(Position >= 0) 

return Remove(Position); 

else 

return 0; 

} 

// AWuiObject - supply minimal object functions 

AWuiObject::AWui0bject(const TWuiName ObjectName, 

const char */*Value*/) 

: Name_(0bjectName) 

{ MEMBERASSERTQ; 

} 

// Object destructor 
AWuiObject::~AWui0bject() 

{ MEMBERASSERTQ; 

} 

// Get - default get attribute handler 

// NOTE: the default is to forward the message, or to return 
// FALSE if this object is the destination 

long AWuiObject::Get(const char *Path, 

TWuiArgs *Args, AWuiObject *Attribute, 
char *Buffer, size_t MaxLength) 

{ MEMBERASSERTQ; 

ASSERT(Path != NULL); 
long Result * TRUE; // assume success 
if(*Path) // if message is for a child 
{ 

TWuiName ChildName(Path); 

// advance Path to child name 
Path += strlen(Path)+l; 

TWuiObjects *MyChildren = ChildrenQ; 
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Listing 2 continued 


AWulObject *Ch11d = NULL; 
if(MyChlldren) 

Child =MyChildren->Get(ChildName); 
if (Chi Id) 

Result * Child->Get(Path, Args, Attribute, 

Buffer, MaxLength); 

else // else, no child by that name! 

Result » WUIMAN_ERR_BAD_PATH; 

} 

else // else message is for me 

Result = WUIMAN_ERR_BAD_ATTR; 
return Result; 

} 

// Set - default Set attribute handler 

// NOTE: the default is to forward the message, or to return 
// FALSE if this object Is the destination 

long AWuiObject::Set(const char *Path, 

TWuiArgs *Args, AWuiObject *Attribute, 
char *Buffer) 

{ MEMBERASSERT(); 

ASSERT(Path !* NULL); 
long Result = TRUE; // assume success 
if(*Path) // if message is for a child 
{ 

TWulName ChlldName(Path); 

// advance Path to child name 
Path +■ strlen(Path)+l; 

TWuiObjects *MyChildren = Children(); 

AWuiObject *Child = NULL; 
if(MyChildren) 

Child =MyChi1dren->Get(Chi 1dName); 
if(Child) 

{ 

Result * Child->Set(Path, Args, Attribute, 

Buffer); 

// if error or grandchild, just pass back result 
if(Result < WUIMAN_ERRORS || *Path) 


have any easy access to its parent. I'm hoping that this will 
contribute to the conceptual integrity of the design, but it 
may yet just prove to be a constant irritation. Deleting objects 
from the tree is one irritating example. 

To delete an object, the parent of that object has to 
remove it from its list of children, else it would leave a dan¬ 
gling pointer. However, it would be inconsistent with other 
messages to force callers to send a message to the parent of 
an object to delete that object. Besides, suppose I want to 
give WUIMAN objects the option of rejecting requests to 
delete themselves? 

My solution is to define a standard method for deleting a 
WUIMAN object, an attribute called “m_Delete”. When an ob¬ 
ject receives this message, it returns TRUE if it agrees to be 
deleted. The parent of that object must check the return 
status and, if TRUE, perform the actual deletion. Requiring this 
behavior is not terribly convenient, but fortunately I can im¬ 
plement it in AUuiObject::Set(), and all descendant classes 
can simply pass “m_Delete” messages to the Set () function of 
their parent class. 

mRename 

WUIMAN objects have names, so external software may 
want to rename them, even though the end user probably 
never will. At first, it seemed most natural that a WUIMAN 
object's name should be a property that you get and set. 
Eventually, however, I realized that you can't send a message 
to a WUIMAN object if you don't know its name, since you 
have to specify a complete path through the hierarchy to an 
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object in order to send it a message. That being the case, I 
decided to reinforce that point by just supplying a standard 
renaming method, “m_Reriame’’, rather than a “p_Name" 
property that you can get and set. 

m_IsA 

As mentioned last month, the goal of the “IsA” method is 
to make it possible to, for example, discover at runtime that a 
WUIMAN graphical button is fully compatible with a WUIMAN 
simple button. The default handler for this message simply 
returns FALSE, since if the message makes it all the way to 
AUuiObject, then no other C++ class along the way has 
claimed compatibility. 

Summary 

A lot of the most generic aspects of WUIMAN are now in 
place. Next month, I’ll fill in enough missing gaps so that the 
code can actually load a WUIMAN database from disk and 
save it again later. 

References 

Brooks, Frederick P., Jr. The Mythical Man-Month. Reading, MA: 
Addison-Wesley, 1975. ISBN 0-201-00650-2. □ 
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Listing 2 continued 


// else, no error and message was for child 
else if(Args->AttributeName() == M_DELETE) 

{ 

// Since tree has no upward pointers, 

// parent of target node must do deleting 
delete MyChildren->Remove(ChildName); 

} 

} 

else // else, no child by that name! 

Result = WUIMAN_ERR_BAD_PATH; 

} 

else // else message is for me 

{ 

if(Args->AttributeName() == M_DELETE) 

; // parent will delete 

else if(Args->AttributeName() == M_ISA) 
return FALSE; // we ain't IsA nothin'! 
else if(Args->AttributeName() == M_RENAME) 

Name_ = Buffer; 

el se 

Result = WUIMAN_ERR_BAD_ATTR; 

} 

return Result; 


TWulObjects *AWui0bject::Children() 

{ MEMBERASSERT(); 

// default is to not support children 
return NULL; 

i 

TWuiObjects ‘AWuiObject:attributes() 

{ MEMBERASSERT(); 

// default is to not support attributes 
return NULL; 

I 

/* End of File */ 


Pearl Software presents WinEmacs 


Emacs for Windows 


WinEmacs Is a fully functional Windows 3.1. version of the 
industry standard program editor Gnu Emacs, version 19*3* 
WinEmacs is available with all Gnu Emacs source code. WinEmacs 
is fully compatible with the Lucid Inc. Unix version of Gnu Emacs. 

WinEmacs retains all the Emacs features you are used to: 


Plus WinEmacs has these extended features: 


• Separate buffers in different windows 

• Clipboard support 

• Menu and drop-down menu bar 

• Scroll bars 

• Multiple font-size and type support 

• DDE and OLE support 

• Cut and paste mouse support 

• Binds any arbitrary combination of a 

• Support for text and Binary files 

key and key modifiers to Emacs Lisp 

• Support for foreign keyboards 

code 

Memory Requirements: 8MB RAM 

, 15MB disk space 


How you can obtain WinEmacs 

You can try the demo version of WinEmacs without cost by contacting Pearl 
Software at pearl@netcom.com (e-mail) (510) 273-9795 (voice) or (510) 839-9820 
(fax). If you decide to use it, please register for technical support from Pearl ($199). 
This will entitle you to all upgrades (NT version soon!) for one year, and access to our 
BBS which posts bug fixes and full Emacs source code.. 

WE ALSO PROVIDE EMACS CONSULTING SERVICES 

Pearl Software, 320 Lenox Ave., Oakland, CA 94610 


• Syntax expansion and indenting 

• Begin/end structure and brace 
matching 

• Word wrap and full justification 

• Runs programs from within editor 

• Configurable key bindings to arbitrary 
Emacs Lisp functions 

• Compatibility with UNIX .emacs 
configuration tables 

• Mode line 

• Huge library of Emacs Lisp for other 
extensions 


• Emacs Lisp Extension Language 

• Hypertext help, on-line manual 

• Line, block, character marks 

• Full undo and redo 

• Multiple buffers 

• Edits arbitrarily large files 

• Regular expression search/replace 

• Incremental search 

• Procedure tagging with completion for C, 
C++, Pascal, Lisp, and many others 
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■ Tech Tips 



Edited by 
Leor Zolman 


Please send us your best 
tricks and hacks — those 
clever pieces of code to 
make things work the 
way they should! You’ll 
receive at least $50 for 
each tip that we print 
Send your submissions to.- 
Tech Tips 
Leor Zolman 
74 Marblehead Street 
North Reading, MA 01864 
leor@bdsoft.com. 


“Easy icons” for DOS Apps 


Distributing DOS Apps with Automatic Windows Icons 


Mark Nelson 
1609 Papeete Drive 
Plano, TX 75075 
CIS: 73650,312 

Even if you are still building DOS applications and distributing them to your cus¬ 
tomers, you will probably find that many, if not all, of your users are launching them 
from inside Microsoft Windows. Windows 3.x makes a nice task launcher on 
machines that have some horsepower to spare. 

Installing DOS applications in Program Manager groups is simple enough that most 
end users can accomplish it with little or no trouble. However, one nice feature they 
have to forgo with this system is having a customized icon for each application. 
Although it is possible to use the default icons shipped with Program Manager, and 
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skilled users can add icons from other sources, most users will 
end up with the boring default MS-DOS application icon. 

With a little ingenuity, you can outsmart Program Manager 
and bind an icon of your choosing directly into your DOS ap¬ 
plication. The secret is simply to turn the concept of the DOS 
stub executable on its ear. 

If you try to run a Window application directly from the 
DOS command line, you will usually see a message that looks 
something like this: 

C:\>PR0GMAN 

This program requires Microsoft Windows. 

C:\> 

You might think that MS-DOS is smart enough to recognize 
the format of a Windows . exe file, but this is not the case. 
What you are actually seeing is the complete execution of a 
DOS executable that has been attached to the Windows . exe 
file. This file is referred to as the “stub file”, and it is what 
executes when the program is loaded from the DOS command 
line. 

To substitute your DOS application for the normal stub file 
that is attached to a Windows .exe, you just have to modify 


the STUB line in the .def file used to link your Windows ap¬ 
plication. launch, def (Listing 4) shows an example of this. 

Once you bind your DOS application to a Windows .exe, 
you have a true Windows .exe format file, but one that will 
execute your DOS application when invoked from the com¬ 
mand line. Now you have the ability to add icons to the Win¬ 
dows .exe using standard programming tools that come with 
all Windows-capable C or Pascal compilers. 

The two batch files, buildms.bat (Listing 2) and 
buildbc.bat (Listing 1), show how to do this using either Bor¬ 
land or Microsoft C++. These batch files bind my DOS applica¬ 
tion, myapp.exe, to a Windows executable, launch.exe. The 
launch, rc (Listing 5) and launch, ico files are processed by 
the resource compiler, binding my spiffy icon into the Win¬ 
dows executable. 

When I add launch.exe to a group in Program Manager, I 
see that by default my custom icon appears on the screen. 
And yet, when I run launch.exe from the DOS command line, 
I am gratified to see my DOS program run normally. 

However, there is still one more hurdle to cross before this 
project can be considered a success. As it stands now, when I 
double-click on launch.exe from inside the program manager, 
the stub program built from myapp.c (Listing 6) is completely 
ignored. When Windows executes a Windows . exe, it pays no 
attention to the DOS mode stub program. 



Listing 1 buildbc.bat — Builds launch.exe with 
Borland C+ + 


rem ********************BUILDBC.BAT************************* 

rem This batch file builds MYAPP.EXE using Borland C++, 
rem MYAPP.EXE is then bound with LAUNCH.EXE, creating 
rem a DOS app that can be launched from the command line or 
rem from the Windows environment 
rem 

bcc myapp.c 

bcc -W -w-par launch.c 
RC launch.rc launch.exe 

rem ****************END OF BUILDBC.BAT********************* 


Listing 2 buildms.bat — Builds launch.exe with 
Microsoft C+ + 


rem ******+*+***********BUILDMS•BAT************************* 
rem 

rem This batch file builds MYAPP.EXE using Microsoft Visual 
rem C++. MYAPP.EXE is then bound with LAUNCH.EXE, creating 
rem a DOS app that can be launched from the command line or 
rem from the Windows environment 
rem 

cl myapp.c 

cl /GA /c launch.c 

link launch,launch,,/NOD:slibce slibcew libw,launch 
rc launch.rc launch.exe 

rem ****************end OF BUILDMS.BAT********************* 
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publications, inc. 


The solution to this problem is relatively simple. My Win¬ 
dows program {launch, c, in Listing 3), which we have ignored 
up until now, is in fact nothing more than a short program 
that knows how to launch itself from the DOS command line. 
It builds up a simple command line using the name of the 
current command interpreter (usually comand.com), along 
with its own name ( launch.exe in this case), and calls the 
WinExec() function to set the whole thing in motion. 

On most machines, this has the effect of calling UinExec() 
with a command line something like this: 

"COMMAND.COM LAUNCH.EXE" 

However, it is also smart enough to use an alternate program 
such as 4D0S if that is being used. In any case, it then 
relaunches itself from in DOS mode, and quietly puts the Win¬ 
dows executable back to sleep. To the end user, it looks as 
though DOS application has started up normally. 

To help in the debugging process, you can pass a single 
argument on the command line named “DEBUG,” and 
launch.exe will show you its proposed command line in a 
message box before executing it. 

This technique does have one drawback. The Windows 
.exe format is limited to using stubs no longer than 64Kb 
bytes. If you have an application that exceeds that size, you 
will need to launch a short DOS loader that actually loads your 
main program. This shouldn’t be too big a hurdle for most 
programmers to leap. 
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The 1 aunch. i co icon file referred to in 1 aunch. re (Listing 
5) is not reproduced here. When testing this application, 
you'll need to either supply your own .ico file, or obtain the 
original 1 aunch.ico from the W/DDJ code disk. —Iz □ 


Listing 5 launch.rc - The resource file that points 
to the icon 

. **********************[_aunch.rc************************* 

ICON 1 ICON "launch.ico" 


. *******************£^q Qp LAUNCH.RC**************** - ****** 


Listing 3 launch, c - C code to launch DOS 
programs from Windows 


^**********************«»*l_/\UNCH.C************************* 

* 

* Binding this program with an MS-DOS executable is an 

* easy way to provide an icon to your end user. Program 

* Manager will automatically detect the icon and use it 

* when adding this executable to a program group. This 

* program then uses COMMAND.COM (or another command 

* processor) to execute your bound MS-DOS executable. 

*/ 

linclude <windows.h> 

#include <stdlib.h> 

int PASCAL WinMain( HANDLE hlnstance, 

HANDLE hPrevInstance, 

LPSTR lpCmdLine, 
int nCmdShow ) 

{ 

char my_name[ 128 ]; 

char ‘comspec; 

char command_line[ 256 ]; 

GetModuleFileName(hInstance,my_name,sizeof(my_name)); 
comspec * getenv( "COMSPEC" ); 
if ( comspec == 0 ) 

comspec = "COMMAND"; 
wsprintf( command_line, 

"%s /c %s", 

(LPSTR) comspec, 

(LPSTR) my_name ); 

if ( lstrcmp( lpCmdLine, "DEBUG" ) == 0 ) 

MessageBox( 0, command line, "Launch 1.0", MB_0K ); 
WinExec( commandjine, SW_SH0WN0RMAL ); 
return 0; 


/*********************£NQ OF LAUNCH. c*********************/ 


Listing 4 launch.def — Binds the DOS app to the 
MVindows APP 


• **********************[_^UNCH.DEF************************* 


NAME 

DESCRIPTION 

EXETYPE 

STUB 

CODE 

DATA 

HEAPSIZE 

STACKSIZE 


LAUNCH 

'DOS Application launcher 1 
WINDOWS 
1 MYAPP.EXE' 

PRELOAD MOVEABLE DISCARDABLE 
PRELOAD MOVEABLE MULTIPLE 
4000 
6000 


. *******************p^Q OF LAUNCH.DEF********************** 
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New Products 

Industry-Related News & Announcements 


Dyad Creates M++ Plotting Module 

M++ is a math library and multidimensional array pack¬ 
age for C++. Dyad Software is now shipping M++ VIS, an add¬ 
on package that lets programmers plot M++ data arrays and 
functions. The module provides both program-controlled and 
interactive plotting on a variety of terminals for DOS, Win¬ 
dows, UNIX, and Windows NT. A set of member functions 
lets the user specify the plot format (lines, steps, points, etc.), 
the plot type (2-D, 3-D, contours, polar, etc.), and plot 
parameters (colors, titles, line labels, axis labels, axis tics, etc.). 

You can control the complete details of the plot presen¬ 
tation, or just specify the data array to plot to accept all the 
default presentation values. You can also let the user modify 


the plot presentation using an interactive plot mode that 
uses prepared data files. In the interactive mode, the user 
can apply arrows to items of interest from arbitrary labels. 
The indexing features of M++ let you plot any subset of any 
array to provide a blowup of a particular section of array 
data. 

VIS requires M++ and costs $195 for DOS and $295 for 
UNIX single- user systems. A demonstration program for VIS 
is available via BBS at (206) 271-9486. For more information, 
contact Dyad Software Corporation, 6947 Coal Creek 
Parkway SE, Ste. 361, Renton, WA 98059-3159, 

(800) 366-1573 or (206) 637-9426; FAX (206) 637-9428. 


WINGate Connects DOS and Windows 

WlNGate Technologies has released WINGate, a 
client/server framework that provides bi-directional 
pipelines among one or more DOS and Windows applica¬ 
tions. WINGate gives DOS programmers access to Windows 
features such as shared named memory, DDE, the clipboard, 
and the print manager. Programmers faced with porting a 
DOS application to Windows can rewrite the user interface in 
Windows and use WINGate to communicate with the DOS 
program for computation. One advantage to leaving com¬ 


putationally intense activities in a DOS program with a Win¬ 
dows front end (a technique used by Microsoft's Visual C++) 
is that Windows 3.1 does preemptively schedule DOS 
programs, so no special coding is required to avoid tying up 
the CPU. 

The WINGate Developer's Tool Kit costs $295. For more in¬ 
formation, contact WINGate Technologies, High Street 
Court, Suite 303, Morristown, NJ 07960, (800) 946-4283, 
(201) 539-2727; FAX (201) 539-2838. 


PowerObjects Offer Custom Control Power for XVT 


XVT-PowerObjects is a new product that provides cus¬ 
tom controls for XVT, a portable user interface toolkit avail¬ 
able for C and C++. PowerObjects offer canned solutions to 
common user interface tasks, saving custom coding. The ini¬ 
tial release includes PowerObjects for tables, spreadsheets, 
buttons, toolbars, and status bars. 

The table object provides rows and columns of cells for 
storing text, and offers scrolling, horizontal and vertical rules, 
column headings, and settable line height, column width, 
and margins. The spreadsheet object is a more advanced 
table object that adds spreadsheet features such as row tit¬ 
les, cell operations (insert, delete, and drag-and-drop), reor¬ 
dering and resizing of rows and columns, and the ability for 


cells to contain icons and pop-up menu buttons in addition 
to text. The toggle/picture button object provides 3-D but¬ 
tons with graphical faces and up to four different states. The 
toolbar object is a window with rows or columns of toggle 
buttons, standard controls, or user-developed custom con¬ 
trols. The status bar object provides a text window that 
other GUI objects can update. 

XVT-PowerObjects Library costs $395 per developer for 
the PC and $495 on workstations (such as Sun). For more in¬ 
formation, contact XVT Software Inc., 4900 Pearl East 
Circle, Boulder, CO 80301, (303) 443-4223; 

FAX (303) 443-0969. 


Page 78 — Windows/DOS Developer's Journal 


December 1993 











































Natural Systems Ships Container Class for Pascal 


Data Structures is a Turbo Pascal object hierarchy that 
provides ready-to-use implementations of popular data 
structures. The Data Structures object hierarchy is divided 
into three major groups: deques, lists, and trees. Specific 
data structures include stacks, queues, heaps, priority 
queues, sorted lists, and binary trees. Other features include 
sparse matrices and Huffman encoding. 


Data Structures costs $49, which includes complete 
source code, examples, online help, a 150-page manual, and 
technical support. For more information, contact Natural Sys¬ 
tems, P.O. Box 968, Brookline, MA 02146, (617) 232-6951; 
CompuServe 71301,1221. 


WorldToolKit Offers Virtual Reality Development 


WorldToolKit is a graphical simulation tool now available 
for Windows developers, in addition to UNIX and DOS. 
Developers can use WorldToolKit to build hardware-inde¬ 
pendent, realtime virtual reality applications and 3D graphics 
simulations. The package can use DDE to access data in Win¬ 
dows databases and spreadsheets. 


WorldToolKit for Windows is scheduled to ship in Decem¬ 
ber I993and costs $795. For more information, contact 

Senses Corporation, 1001 Bridgeway, #477, Sausalito, CA 
94965, (415) 331-6318; (415) 331- 9148. 


Doughboy Generates Installation Programs 


Doughboy Professional install v 1.0 is a new installation 
program generator for Windows 3.x. Features include data 
compression, CRC-32 checksumming for data integrity, the 
ability to split large files over multiple disks, automatic crea¬ 
tion of Program Manager groups and items, display of a 
graphic logo during installation, an uninstall procedure you 
can include with your software, automatic display of 
readme, txt, end-user system configuration checking, and 
control of background color and pattern. 

You can start using the product by specifying the path to 
your application, modifying the default settings to customize 
your installation program, and then selecting the Build 


Master Disks command to build a disk set; no script program¬ 
ming is required. The program offers selective file compres¬ 
sion, program spawning, and file redirection. It retains a 
mirror image of your application, including date and time 
stamp, attributes, subdirectory placement, and hidden and 
system files. 

Doughboy Professional Install vl.O costs $99US until 
November 30,1993, and $ 149US afterward. For more infor¬ 
mation, contact NeoPoint Technologies, P.O. Box 2281, 
Winnipeg, MB, Canada R3C 4A6, (204) 668-8180; (204) 992- 
2122. 


New DLL Supports Knowledge Engineering Apps 


The CyberNet Object Database DLL is a database manage¬ 
ment system designed for knowledge engineering applica¬ 
tions. The system automatically indexes objects for fast 
retrieval, compresses and decompresses data on-the-fly, and 
handies network access transparently. Object records can be 
of variable size and complexity, and the number of fields 
and field size can change dynamically. The package supports 


searching and data import and export As a DLL, the package 
is accessible from a wide variety of Windows libraries. 

The CyberNet Object Database DLL costs $250. For more 
information, contact LogiCraft Corp., 3303-116 Street, Ed¬ 
monton, AB, Canada T6J 3J1, (403) 435-4049; 

FAX (403) 450-3710; CompuServe 74776,2063. 


UnderWare Ships Info Tracking Tool 

UnderWare, the original developer of BRIEF, is now ship¬ 
ping Track Record, a Windows information tracking tool for 
PC developers. Track Record helps individuals and teams 
keep track of bug reports, feature requests, test cycles, 
testers, schedules, releases, documentation, and other infor¬ 
mation associated with software development. You can use 
the product to keep track of ongoing work on a project, and 


to create multiple customized views that selectively display 
the information based on a variety of criteria. 

Track Record costs $159 per user ($99 until December 1, 
1993). For more information, contact UnderWare, Inc., 321 
Columbus Ave., Boston, MA 02116, (800) 343-7308 or (617) 
267-9743. 


Wind/U Supports Visual C++ under UNIX/Motif 


Bristol Technology Inc. has released Wind/U vl.3, the 
latest version of their Windows-to-UNIX portability toolkit 
Wind/U lets you recompile and link your Windows code to 
create a native UNIX/Motif version of the application. 

The new version supports Visual C++ via the Microsoft 
Foundation Class Library v2.0. Developers can also now ex¬ 
plicitly load DLLs with Windows API functions, hiding the ar¬ 
chitecture dependencies of the underlying UNIX systems. 


The new version also offers improved support for printing 
and for the Windows common dialogs. 

Wind/U vl.3 costs $9,950 and is available on Sun SPARC, 
HP700, and RS/6000 workstations, as well as SVR4 on Intel 
platforms. For more information, contact Bristol Technology, 
Inc., 241 Ethan Allen Highway, Ridgefield, CT 06877, (203) 
438-6969; FAX (203) 438-5013. 
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Write Once, Help Many, with HLPDK 



HLPDK is a shareware tool for constructing hypertext 
databases, such as online Windows help. Unlike most such 
tools, HLPDK is designed to let you create the text once, and 
then compile it to any of several targets, including Windows 

3.x (.hpj, .rtf files), OS/2 (. ipf files), THELP, QuickHelp, and 
others. HLPDK v8.0 offers automatic table of contents, glos¬ 
sary, and index generation. 

HLPDK v8.0 costs $50 to register and includes two royalty- 
free help engines; source code to the help engines costs 
extra. For more information, contact ISoft D&M, P.O. Box 

5517, Coralville, 1A 52241, (319) 351-8413; CompuServe 

76350,333. 


Soft Ventures Updates Install Utility 



SVinstal is a Windows installation utility for programmers 
designed to provide a simple to use method for creating dis¬ 
tribution disks. To use it, you enter the company name, Pro¬ 
gram Manager group name, root directory to create, files to 
be installed, and the "readme” file name. Then you include 

the generated data file and svinstall.exe on the distribu¬ 
tion floppy. 

For more information, contact Soft Ventures, Box 22183 

Bankers Hall, Calgary, Alberta, Canada T2P 4}5, (403) 278- 
1681; CompuServe 71441,734. 


HAIL Offers Portable Graphics 



The Halo Advanced Imaging Library (HAIL) is a new multi¬ 
platform programming toolkit for creating analytical imaging 
applications. HAIL offers a single API that works the same on 
Windows, Windows NT, DOS, the Macintosh, OS/2, and UNIX. 

The library provides over 350 imaging functions, including 
counting, sizing and classification of objects, morphology, 

FFTs, advanced filtering techniques (including dilation, 
erosion, high pass, low pass, median, Roberts, Sobel, Thin¬ 
ning, Watershed, opening, closing, flattening, and user- 
defined filters), image algebras, and operations in both true 
color and gray scale. HAIL offers color model transformation 

to extract and merge color channels or transform images 
from one color model to another; the package supports RGB, 

HSI, HSV, and YIQ color models. Image mathematics lets you 
perform math operations between an image and a numeri¬ 
cal value or between two images-, operations supported in¬ 
clude addition, subtraction, difference, multiplication, 
division, averaging, minimum, maximum, and bitwise opera¬ 
tions. 

For more information, contact Media Cybernetics, Inc., 

8484 Georgia Avenue, Silver Spring, MD 20910, (301) 495- 
3305; FAX (301) 495- 5964; Telex 322014. 


Gimpel Updates C Analysis Tools 



C-Vision is a set of tools to help programmers analyze 
and maintain C source code. The four main components are 
a cross-referencer, a function call diagrammed a source code 
reformatter, and an intelligent source code lister. C-Vision 
v3.10 now lets you directly manipulate all the information 
generated by the cross-reference parser. You can save the 
parser information to disk as a set of files suitable for import¬ 
ing into a database, or for post-processing by custom code. 

The cross-referencer now provides more control over which 

symbols and files should be included in the cross-reference 
and tree output Local symbols, macros, symbols from 
library headers, and references to library headers can be in¬ 
dividually included or suppressed. The source code lister can 
now print keywords and comments in user-defined formats 
such as bold, italics, underscore, and so on. 

C-Vision v3.10 costs $139. For more information, contact 

Gimpel Software, 3207 Hogarth Lane, Collegeville, PA 

19426, (215) 584-4261; FAX (215) 584-4266. 


ARC++ Extends C++ 



ARC++ is an extension of C++, a precompiler that 
generates C or C++ source code for several platforms. In addi¬ 
tion to the latest ANSI C++ developments (nested classes, 
templates, exception handling), ARC++ offers significant lan¬ 
guage extensions, such as "packages." Packages let you ex¬ 
plicitly export items to and import items from other 
packages, providing an alternative to the header file ap¬ 
proach to modularity. ARC++ also offers a plethora of smaller 
language features, including the ability to define lexical 
operators (they can be composed of special symbols or can 

even be identifiers), access to argument counts for variable- 
argument functions, “bound function pointers" (pointers that 
contain both function and object addresses), upper and 
lower bounds for arrays, an exponent operator (”**”), and 
more. 

ARC++ costs $395 for PCs and Macs, with an introductory 
price of $195. For more information, contact AR Software, 

8201 Corporate Drive, Suite 1110, Landover, MD 20785, 

(301) 459-3773; FAX (301) 459-3776. 
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Cognitronix Updates Code Manager 

Cognitronix is shipping Code Manager v2.1, their new ZIP 
and DOS file management and text search utility for Win¬ 
dows 3.x. The product is built on top of Searcher Professional 
v2.0 (hence the version number). Code Manager manages 
DOS and ZIP compressed files across multiple disks, based on 
the text contents or any other attribute, including date and 
size ranges. You can search files for exact text matches, 
fuzzy matches, regular expressions, in either ordinary files or 
files inside of .zip archives. You can backup, launch, zip, 
unzip, copy, move, delete, or view selected files. 


Code Manager includes Free Launch, an application¬ 
launching replacement for the Task Manager. The package 
also includes File Tree, a graphical directory tree viewer and 
navigator, and Code Editor, which lets you edit multiple files 
at once, with File size limited only by available disk space. 

Code Manager v2.1 costs $99. For more information, con¬ 
tact Cognitronix, 12322 Poway Road, Suite 120, Poway, 

CA 92064, (800) 217-0932 or (619) 549-8955. 


DBS GmbH Offers Digital Image Processing Kit 


Ad Oculos is an image-processing package that includes 
a frame program, more than 50 basic algorithms with C 
source code, a programmer's guide, and the textbook “Ad 
Oculos Image Processing” by Baessmann/Besslich. You can 
use the frame program to arrange the algorithms into TIFF 
image processing chains just by pointing and clicking. You 
can also add user algorithms to the frame program. The algo¬ 
rithms supplied include local and global operators, region 
and contour segmentation, Fourier and Plough transforms, 


morphology image processing, pattern recognition, and 
image sequence analysis. All the algorithms are available as 
DLLs with a documented interface. 

Ad Oculos cost $470; the book and demonstration 
software cost $49, refundable if you purchase the complete 
package. For more information, contact Ian Campbell, DBS 
GmbH, Fahrenheitstr. 1, 28359 Bremen, Germany, ++49- 
421-73306; FAX ++49-421-73398; CompuServe 100013,115. 


EMS Updates Windows, VB, and PAL Libraries 


EMS Professional Shareware is shipping updated versions 
of several of its public domain and shareware libraries for 
programmers. All the libraries include an indexed database 
of their contents, searchable by vendor, name, type, release 
date, or free text search. 

The WINPRO Utility Library CD-ROM now contains 705 
products for Windows programmers and consultants. Topics 
include backup, benchmarking, .bmp utilities, bug fixes, com¬ 
munications, configuration, file compression, font utilities, 
graphics, icon utilities, memory management, networks, 
security, sound, text processing, Visual Basic DLLs, and more. 

The VBASIC Library contains 425 Visual Basic programs 
and utilities. Topics include business, communications, cus¬ 
tom controls, data access, DDE, device control, file compres¬ 


sion, finance, fonts, graphics, language extension, sound, and 
others. 

The PAL Utility Library contains 56 new products for a 
total of 490 PAL (Paradox) language products. Topics covered 
include backup, benchmarking, browsing, bug fixes, CASE, 
communication, configuration, conversion, data compression, 
data entry, debugging, finance, graphics, indexing, mail- 
merge, security, Soundex, string functions, and more. 

The WINPRO Utility Library costs $59.50 on CD or $99.50 
on diskette. The VBASIC Library and the PAL Utility Library 
each cost $59.50 on diskette or CD. For more information, 
contact EMS Professional Shareware, 4505 Buckhurst CL, 
oiney, MD 20832-1830, (301) 924- 3594; FAX (301) 963- 
2708; Internet eengelmann@worldbank.org. 


XBasic Provides Multi-Platform, 32164-bit Development 


XBasic is a new 32/64-bit development environment for 
Windows, UNIX, OS/2, PowerPC, and A!pha/MIPS/88K/RISC 
CPUs. The package is an integrated editor, compiler, debug¬ 
ger, function library, and user interface designer (Gui- 
Designer). After you design a user interface with GuiDesigner, 
you can then insert code into the locations created and com¬ 
mented by GuiDesigner. 

XBasic language features include pass-by-value/refer- 
ence/address, redimensionabie and reconfigurable arrays, 
complete data types, including complex numbers and user- 


defined types, direct memory access, and function com¬ 
patibility with C. The package includes a math library, built- 
in complex number arithmetic, and a library of graphics 
functions. The company plans to create a developer edition 
that translates programs directly into standalone . exe or 
.dll files. 

XBasic costs $249 for Windows 3.1 and Windows NT. For 
more information, contact riscA International, P.O. Box 
221158, Carmel, CA 93922-1158; (408) 625-3287; FAX (408) 
625-3299. 


Quantasrn Updates ASMFLOW 

ASMFLOW is an assembly language flow charting and 
source code analysis tool for DOS assembly language 
programmers. ASMFLOW helps programmers document their 
code, or understand code written by someone else. It auto¬ 
matically generates flow charts, call tree diagrams, stack size 
information, timing approximations, register usage analysis, 
data cross-reference, and other information. The new ver¬ 
sion supports the Pentium CPU and includes a data cross-ref¬ 


erence feature and the ability to analyze assembler listing 
files. 

ASMFLOW Professional v3.0 costs $199.95; current users 
can upgrade for $49.95. For more information, contact Quon- 
tasm Corp., 19672 Stevens Creek Blvd, Suite 307, Cuper¬ 
tino, CA 95014, (800) 765-8086 or (408) 244-6826; FAX 
(408) 244-7268. 
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Readers' Forum 


You can now send letters to the editor via Internet at the 
following address: 
wdletter@rdpub.com or 
.. !uunet!rdpub!wdletter” 
from CompuServe: 

>INTERNET:wdletter@rdpub.com 

We ask that letters with code listings be submitted in an 
ASCII text file on an MS-DOS formatted disk or via email. 
Providing us an electronic copy of the code will prevent 
typographical errors that might result from optical scan¬ 
ning or re-keyboarding. 


Dear Editor, 

Thank you for the editorial coverage of our LibTools 
product in your October 1993 issue. I would like to clear up a 
couple of points in the article which may lead your readers to 
misunderstand LibTools’ purpose or underestimate its 
capabilities. 

First, in the table of contents, it says "Every compiler comes 
with a linker...” — LibTools is not a linker, it is a set of library 
management tools for creating and managing Microsoft-com¬ 
patible .LIB files. 

Second, in the table on p. 45, the last column reads “% 
Faster” — it should read TIMES FASTER! In other words, on an 
addition operation, LibMan is 1117% faster than LIB, not 
11.17%! 

Again, thanks for the coverage! We hope this clarifies 
LibTools' potential value to your readers. 

Steve Steiner, President 
IDC 

This was totally our fault, as IDC caught this at galley 
stage and then we slipped up and did not get the correction 
in. I’m sure most of our readers know that Microsoft’s LIB is 
so slow that a mere 11 percent speedup would not have 
been worth mentioning, so I hope they gathered from the 
article that LibTools offers much better speed than that. I 
apologize for the blunder, —rib 


Dear Sirs: 

I like your magazine very much and have found it to be 
useful and informative. I like it so much that 1 keep all the 
back issues. I am writing to complain about the condition of 
my last three issues. They have each arrived in terrible condi¬ 
tion. The last issue is by far the worst. Your magazine is not 


the only one my household receives, but it is the only one 
which arrives torn to shreds. It seems to me that either your 
mail room or your local post office is grossly mishandling your 
magazine. I would appreciate it if you could look into this 
matter and ensure that future issues are delivered intact. 

Sincerely, 

George R. French 

Pam VanSchmus, our Customer Service representative, 
responds: Thank you for letting us know about this problem. 
We apologize for the poor condition of your magazines and 
and have sent you replacement copies. We monitor reader 
reports of damaged issues, but because the problems typi¬ 
cally are sporadic, we are rarely able to find a pattern or 
establish a cause-and-effect relationship. We ask that any 
readers who have similar problems contact me 
(pam@rdpub.com), so that we can replace the damaged 
issues. 


Hi Ron, 

I've been a subscriber to W/DDJ for about 6 or 7 months 
now and although I've found it an interesting journal, I’ve 
decided to cancel. As I remember the sub offer (which I threw 
away — dumb), there was an offer to transfer to The C Users 
Journal. If possible I would like to do this — with limited time 
to read everything I subscribe to, the CUJ is closer to my cur¬ 
rent interests. 

I've written to you because, 

1: you set a good standard of editing and my withdrawal 
in no way reflects on the quality of W/DDJ; 

2: you have an e-mail address and it’s easier to thump out 
one of these than send a letter to the subs department; and 

3: I have a comment on Symantec's C++ Professional 6.0 
which (since you mentioned it in a recent editorial) I'd like to 
open to other readers. 

I program for a living and enjoyment, mostly under UNIX, 
but my company does have a few DOS and Window applica¬ 
tions to support. We mostly use Microsoft C/C++, but I also 
have Borland and I’m a sucker for up/cross grades, so when 
Symantec mail-dropped me to cross grade for A$349 (about 
US$230), with offers of “..more than $1400 worth of extra, 
built-in tools..”, like a version control system (PVCS) and Blue 
Sky’s visual application generator, how could I pass it up? Well 
after a close look, I think I've been conned. 

The app generator is missing the “SIM” modules which are 
required to actually generate source code (you buy these 
from Blue Sky); the RCS turns out to be an INTERFACE to PVCS 
(you must buy the actual program separately from InterSolv) — 
if you read the offer details carefully armed with this 
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knowledge, it becomes obvious, but you shouldn’t have to go 
into attorney mode to read a brochure. Finally, there is no 
support for DOS graphics —which wasn't explicitly promised —I 
just assumed that there would be, so caveat emptor to you 
too, mate I 

I’m not greatly distressed because Symantec offers a 30- 
day, no questions asked, full refund, but as you pointed out, 
the size of the compiler market is limited. Any gains by 
Symantec must come at the expense of the other vendors, so 
they really can't afford to pull silly marketing tricks like this. 
Certainly, I'll look very closely at any future offers by Syman¬ 
tec, regardless of the worth/desirability of the product, since I 
now believe they are not to be trusted. 

Ronald A Chernich 
Clayfield 
Brisbane 
AUSTRALIA Q4011 

If we have to lose a subscriber, The C Users Journal is 
my favorite magazine to lose to! We have made the sub¬ 
scription change you requested. This is probably also a 
golden opportunity to mention that any readers with any kind 
of subscription problem can now reach R&D's Customer 
Service electronically by sending email to: 

pam@rdpub.com 

From CompuServe, that address would be: 

>INTERNET:pam@rdpub.com 

For the record, I should point out that Symantec did ship 
a Switch-lt Module (SIM) for MFC C++ after shipping the 
compiler itself (I just received my copy of the missing SIM 
last week). I can't really blame you for being irritated that the 
product did not ship complete and that the advertising was 
quite capable of leading reasonable people to infer that the 
product included complete version control software. Unfor¬ 
tunately, this sort of thing is not at all unusual in our busi¬ 
ness, so I think it’s up to users like you to let vendors know 
how much they can or can't get away with, by registering 
your complaint or returning the product. I do have to give 
the company points for offering the money-back guarantee, 
though - at least they are willing to take the arrows for the 
comers they cut. —rib 


Ron, 

l am excited about the possibilities of WUIMAN. Have you 
considered using the registration database? It seems to offer 
the hierarchical features this project needs. 

I also have a request. Please keep in mind the possibilities 
of using WUIMAN to provide a front-end to non-traditional lan¬ 
guages. I am investigating porting the public domain program¬ 
ming language ICON to windows, if l do, something like 
WUIMAN would be perfect for providing the ICON programmer 
with a Ul. 

I would provide ICON with the ability to call arbitrary DLLs, 
so ICON could call into WUIMAN. The problem is in WUIMAN 
calling ICON. If WUIMAN could call one entrypoint with a string 
describing the callback, it might be easier for languages which 
can’t provide the addresses of their functions easily (typically, 
but not always interpreters). 

Thanks, 

Neil Qalarneau 
neil@progress.com 

Fli Neil, 

I did actually consider the registration database, although 
I thought it would be better to wait until the features of the 
Windows NT registry make it into Win16 (perhaps that will 
happen in Windows 4.0). I hope I have left myself enough 
room that it will be fairly easy to switch from using .INI files 
to using the registry. 

For readers who have not heard of ICON, it is a modern 
string-processing language from the same folks who 
originally created SNOBOL. 

You've raised a very good point about being able to 
adapt WUIMAN to situations such as fronting for an inter¬ 
preter. Originally, I envisioned WUIMAN events looking pretty 
much like Visual Basic events. In other words, an event 
defines a rigid set of arguments (such as X and Y positions 
for a mouse move) that it passes to a function. After reading 
your letter, it seems to me that it would be a lot more flexible 
if WUIMAN events let the user specify the arguments they 
want to pass when the event happens. Arguments could in¬ 
clude integer or string constants, as well as object at¬ 
tributes. So, for example, suppose a window supported a 
MouseMove event and attributes named XCoord and Y- 
Coord, which return the current mouse position. To pass the 
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MouseMove event to ICON, you might define the Mouse- 
Move event as: 

IconlnterpC'MouseMove", XCoord, YCoord); 

If I don’t hit any snags, maybe I can implement this in the 
first version. Thanks for the useful comments, -rib 


Dear Mr. Burk, 

James Truesdale's letter in the October, 1993 issue 
prompted me to write you once again. Be forewarned, mine is 
a blatantly selfish position! 

I’m a charter subscriber to W/DDJ (before it was W/DDJ) and 
have enjoyed every issue. I read every page within 48 hours 
of each issue’s arrival. Each issue has had at least one item 
that I add to my knowledge base. I am especially happy with 
the changes and improvements that have been made since 


you became editor. I’m certain Mr. Ward is a fine man, but in 
my opinion you are a better editor. 

I share what appears to be your position that if a job is 
worth doing, it's worth doing correctly, that code should be 
made as simple and error free as possible and above all must 
be documented and maintainable. However, like Mr. Trues- 
dale, my environment has moved away from Windows to 
OS/2. I haven’t written a line of Windows code in 8 months. 
Within 6 months, we won't have a single Windows machine 
left. As you advised Mr. Truesdale, I subscribe to the reputable 
OS/2 publications, as well as to W/DDJ. However, none are as 
thorough, nor as well written for developers (yet) as W/DDJ, 
which brings me to a thought. Please don’t dismiss this out of 
hand. 

There is a world of people waiting for a W/DDJ type 
magazine for OS/2.1 see at least one letter per day in the OS/2 
conference on 1-Link, asking for suggestions as to a good 
development publication for OS/2. It’s a great opportunity for 
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WlnToAsm 

Disassembles MS-Windows EXEs, 
DRVs, DLLs, and VxDs, by 
segment, range, or export. 

Labels exported and imported 
functions, VxD services, 
control proc, API entry, etc. 

Generates segment, export, 
import, and header tables. 

Supports batch-mode tagging of 
functions and data items 

ResToRC 

Decompiles resources to a RC file. 

Vextract 

Extracts VxDS from Win386. 

All for only $94.95! 
30-day Money-Back Guarantee 

Eclectic Software 

937 Jungfrau Court 
Milpitas.CA 95035 
(408) 262-3264 Voice/FAX 



AT LAST! 

SOURCE CODE ESCROW 
DESIGNED FOR YOU! 


It’s finally here — A source code escrow 
service for independent developers. Simply 
deposit a copy of your source code with 
Fidex Americas, along with instructions 
detailing when to release the code to your 
client. You retain copyright. 

• Guarantee future support 

• Enhance your professional image 

• Overcome sales resistance 

• Limit your liability 

• Clients pay cost! 

Call today for complete information! 



FIDEX 

AMERICAS 

CORPORATION 


821 Fir Street • Sandpoint, ID 83864 
1.800.569*7569 • FAX 208*265.4191 
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IMWHelp 


Window/ Help Authoring Tool 


Professional quality help files 
in 1/4 the time!! 

• Edit text directly in IMWHelp 

• Build hypertext links to: topics, 
definitions, subjects 

• Glossary automatically created 

• Bitmaps incorporated 

• Desktop publishing features 

• Print topics, help file, customized 
reports 

• Spell check, replace verify/all 

• Easily reorganize topics, subjects, 
keywords 

• Uses Microsoft Help Compiler 

Single User: $89.95 

MC & Visa accepted, Shipping additional 

Call: EMCSI (212)319-1903 

425 Madison Ave., New York, NY 10017 
□ Request 223 on Reader Service Card □ 



C++ SOURCE CODE 


p P, The Worm s Leading 

I FT! 9 OP VSTMT Publisher ot C++ 

liilUt.VU'Vl t DevelopmentTools 
Presents 

ISCL™ containing more than 
140 volumes of high 
quality C++ source code 
(both shareware and 
freeware) including: 

• Neural Nets • Compilers 
Communications • GUIs 
Tutorials • Matrix/Numerical 
• Memory Management • Databases/ 
ISAM • Utilities (e.g. Demangler, Beautifier, etc.) 

• Graphics • And Much, Much More 

All For Only $99"(<m CD Rom) 

Also available on 3.5” and 5 1/4” 

Contact: ImageSoft Incorporated 

2 Haven Avenue • Port Washington, New York 11050 
Tel: (516) 767-2233, Fax: (516) 767-9067 
EMAIL: mcdhuplimageliscl 
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Macro Toolkit 



Is your Windows program part of a 
"solution"? It is with our common macro 
scripting language tool kit. You will 
automate apps, networks, whole systems. 

Build it into your Windows program in a 
morning. Our price is reasonable. Our 
complete evaluation kit is just $20.00 

Call 1-800-762-8383 or 206-938-1740 
Wilson WindowWare 
2701 California Av. SW, Suite 212 
Seattle WA 98116 U.S.A 
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GCP++ is the 
development 
solution for IsjBjS 
TCP/IP under 
Windows! 

Encapsulates TCP, UDP, TELNET & TFTP in a 
robust and easy-to-use server, so you start 
with proven socket library code! 

Genisys Comm Pack++ 

• OLTP, emulators, DBMS, all client/server apps • 
• VB Custom Control and DLL interfaces • 

• Low-cost stack option for integrators • 

Download the GCP++ Evaluation Kit today! 

GENISYS Comm, Inc. 

314 S Jay St, Rome, NY 13440 
315-339-5502 • fax 5528 
GCP++@GENISYS.com 


□ Request 145 on Reader Service Card □ 


MICROSOFT- 

WINDOWS.. 

COMPATIBLE 


GENISYS Comm, Inc. 


SpyWorks-VB" 

For Visual Basic™ - Windows 

SpyWorks-VB allows you to do virtually 
anything in Visual Basic that is possible 
using other languages such as C. It 
includes controls that easily subclass 
VB forms and controls, detect keyboard 
events, and support callback functions. 
SpyWorks includes debugging tools to 
view message and event history, detect 
API parameter errors, Browse Windows 
memory and resources, and retrieve 
information about any window, form or 
control in the system. 

SpyWorks-VB is only $ 1 29 + $5 s&h ($ 15 
outside U.S & Canada). Visa/MC orders 
include phone and exp. date. CA residents 
add 8.25% sales tax. Dual media - Requires 
VB2.0 

Desaw a re 

5 Town & Country Village #790 

San Jose, CA 95128 

(408) 377-4770 fax:(408) 371-3530 
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Career Marketing Associates 

7100 East Belleview Avenue, Suite 102 
Englewood, CO 80111 

Today, 1993 

Dear WINDOWS DEVELOPER: 

Do you know where the best 
Windows development jobs are? I spend 
my time looking for strong 
opportunities for Windows developers 
and software engineers. I might be 
looking for someone with your 
qualifications right now. And there you 
sit in the corner reading a magazine I 
Pay attention, this is your future we 
are talking about. Currently I have 
multiple jobs requiring Windows 
experience, C++, or GUI. If you are 
thinking about a career change, 
shouldn’t you be working with a 
specialist? All fees are paid by the 
company. Write, call, fax, or 
communicate by smoke signals, I’m, 
waiting to hear from you. J 


Sincerely, 



Gary Patton 
303-779-8890 
FAX 303-779-8139 


C ! ^ 

Windows 

Developer Jobs 

Specialists in jobs for software 
engineers in leading edge technology. 
Windows, PM, GUI, Languages, AI, 

Mac, CASE, Video, Realtime. 

Nationwide contacts with both large 
and small companies including equity 
startups. Many of our clients develop 
and publish commercial software 
products. Managed by graduate 
engineers. Never a fee to an 
applicant. 

1-800-231-5920 
Scientific Placement, Inc. 

SPI-8, Box 19949, Houston, TX 77224 (713) 496-6100 
SPI-8, Box 71, San Ramon, CA 94583 (510) 733-6168 
SPI-8, Box 4270, Johnson City, TN 37602 (615) 854-9444 
Fax: 713-496-6802 please use Fine Setting on Fax 
Email: Ascii preferred: Internet LSH@Scientific.com; 
^^Compuserve^71250^300^^Genie|lD^SN4AJLJL6^^ 
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COMI: - COM4: WITH WINDOWS! 

1,2, OR 4 PORT RS-232 BOARDS 
RS-232 AND RS-422 VERSIONS 
XT AND AT INTERRUPT JUMPERS 
OTHER PRODUCTS INCLUDING LAPTOP 
ADD-ONS 

DELIVERY FROM STOCK 
MADE IN USA 

EXCELLENT TECHNICAL SUPPORT 


SEALEVEL SYSTEMS INC. 
P0B0X83O 
LIBERTY, 5C 29657 

803-543-4343 


.5EALEVEL 
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Opt-Tech Sort/Merge 


^ New-Version 5 

High performance Sort/Merge/Select 
utility. Run as a stand alone 
utility or CALL as a subroutine. 

Supports most languages and 
filetypes including Btrieve 
and dBase. Unlimited filesizes 
multiple keys and much more. 

MS-DOS, Windows $149 
OS/2, UNIX $249 

Call to order or for free info. 


Opt-Tech Data Processing 

P.O. Box 678 
Zephyr Cove, NV 89448 

(702) 588-3737 J 
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CDROMs for Work and Play! 


Giga Games CDROM $39.95* 

Over 2700 Games for Microsoft Windows and 
MSDOS. 250 Megs of games plus 150 Megs of 
source. Lots of educational games. July 1993. 
CICA MS Windows CDROM $24.95* 
2518 files of MS Windows programs. Utilities, 
games, source code, programming tools, fonts, 
drivers, icons. April 1993. 

Simtel MSDOS CDROM $24.95* 

650 Megabytes, 9000+ files.Programrning tools, 
utilities, editors, education, source 
code and more. May 1993. 

* Shareware programs 
require separate payment 
to authors if found useful. 

1-800-786-9907 orders@cdrom.com 
FAX 1-510-674-0821 

$5 S&H per order (USA Canada Mexico) 

$10 overseas 1 -510-674-0783 AMEX/VISA/MC/COD 
All our disks are 
unconditionally guaranteed. 

Walnut Creek CDROM 

4041 Pike Lane, Suite D-699 
Concord, CA 94520 
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X.25, SDLC, HDLC, FRAME RELAY, 
BSC ON THE PC 

Use the Sangoma SDLA card to 
provide synchronous support for your 
product that is cost effective, compliant, 
full featured, rock solid and easy to use. 

• Line speed to 180kbps 

• Compatible with all operating 
systems and environments 

• Operating statistics and built in 
datascope make your product easy 
to configure and debug 

• Primary and secondary SDLC with 
multiple addresses 

• HDLC LAPB, LAPD, NRM mode 

• CCITT 1988 X.25 implementation to 
ISO 8208 

SANGOMA Technologies Inc. 

Your communications Link 
Tel: (905) 474-1990; (800) 388-2475 
FAX: (905) 474-9223 


2 ™ 

The Art of Visual Basic Programming ™ 

This amazing new book by J. D. Evans, Jr. unlocks 
the secrets of Windows and Visual Basic 
application design and programming. It explains 
Windows design from a unique and easy to 
understand perspective. Smart Objects, Hybrid 
Objects, Control Coupling, Events, Focus, Event 
Triggering, Visibility, Form and Module Code 
Placement, DLL Parameter Passing, Variable 
Scope, Strings, and Structures are described and 
explained. Enlightening allegories and annecdotes 
make this one of the most unusual and informative 
Windows books ever written. This book is the 
Rosetta stone for Windows and Visual Basic! 


Book: $29.95 Companion Disk: $9.95 


ETN Corporation 

RD4 Box 659 Montoursville, PA 17754-9433 
(717) 435-2202 (Sales) (717) 435-2802 (FAX) 
AMEX/MC/VISA/Check/MO/PO/COD 
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the right publisher/editor, because there are more than 3 mil¬ 
lion users now, and at least some of us are developers. The 
OS/2 1-Link conference alone has at least 20 very knowledge¬ 
able developers who regularly advise others. They would be 
excellent sources of article material. So, if you and Mr. Ward 
create a new magazine, dedicated to OS/2, you have my 
solemn promise to be a charter subscriber, once more, and to 
advise other OS/2 users to do likewise. Regardless of your 
decision, i’ll remain a W/DDJ subscriber for the foreseeable fu¬ 
ture. The mental stimulus alone is worth the price! Keep up 
the good work. 

Tom Carr 

I certainly enjoyed the favorable comparison with Robert 
Ward! Unfortunately, although I’m ahead on Windows 
knowledge at this point, I’m afraid Robert still has about a 
decade head start on me when it comes to general editing 
skills and experience. I'll keep trying to catch up, though. 


You raise interesting points about an OS/2 magazine. I 
think you’re right that, editorially, there’s room in the market 
for the R&D style of magazine — hands-on, concrete, solid 
technical information for programmers. On the other hand, 
launching a successful programming magazine depends on 
a lot of factors. How many vendors are in the market and 
how many dollars do they have to spend on advertising? 
How many potential subscribers are there? How many 
relevant mailing lists (and of what quality) can you rent to 
reach those potential subscribers? I think another OS/2 
magazine just recently appeared, so although OS/2 is cer¬ 
tainly a valid match technically for R&D, it seems the better 
part of valor at the moment to let some dust settle. 

Coincidentally, R&D is in the midst of launching their 
fourth magazine right now, Network Administrator. When it 
comes time to launch number five, I suspect R&D will again 
evaluate the OS/2 market and see how tough it looks. 
Thanks for the comments and compliments, -rib 
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BRIDG IT™ 

Your Windows & DOS - dBConnection; 



Bridgit is a full featured database engine that provides 
easy to use functions for creating, reading, updating 
and indexing dBase-lll+ and Clipper files. 

With Bridgit you create your application only once...then 
convert it to Windows or DOS using either dBase-lll+ or 
Clipper files. 

Order the ultimate database engine for Visual Basic 
and Visual C++ for just $69.95. 


Unelko Corporation 

Tsi:(602) 991-7272 • Fax:(602) 483-7674 
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OPTLINK 5.0 Windows 


Now shrinks program file sizes 
another 50%! 

Enables Windows developers to generate compressed 
self-loading executables (.EXE) and Dynamic Link Librar¬ 
ies (.DLL), thus reducing file sizes an additional 50%. 

Benefits include: ^ 

. Loads applications faster 

• Saves you $’s - fewer 
diskettes to ship 

• Speeds up installation time 

• Complicates reverse 
engineering 

• Reduces your customers’ 

disk requirements nDTi uuiz BEUEF 

• Only requires relinking - 

Other reasons to use OPTLINK : 

• Fastest Windows linking • Builds the smallest programs 

• Unrivalled capacity • No limits on debug information 

• Eliminates RC, IMPLIB, IMPDEF 

TO ORDER CONTACT: 

SLR Systems, Inc. 

1622 N. Main Street, Butler, PA 16001 USA 
Phone: (412) 282-0864: Fax: (412) 282-7965 
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MULTI-PLATFORM CD ROMS 


GRAPHICS 1 CD ROM $24.95 

HUNDREDS of Graphic programs & Utilities w/ source 
& sample data. Animation, drawing & Paint, converters, 
fractals, JPEG, mapping, plotting, ray tracing, etc. Full 
description of all popular graphic file formats. 16,000 
FILES, 426 MB 

AUDIO 1 CD ROM $24.95 

More than 1400 sample sounds & MOD files PLUS 
Hundreds of audio programs and utilities w/ source. 
Converters, editors, generators, players, samplers, 
speech, trackers, etc. 

LANGUAGE / OS CD ROM $39.95 
The LARGEST collection of source & executables for 
compilers, interpreters, function libraries, and 
documentations for standard and research computer 
languages and operating systems ever jLssembled, > 649 
MB. Includes Ada, Basic, C, C++, E, E++, Forth, Lisp, 
Mach, Modula, Oberon, Pascal, Prolog, Rexx, Scheme, 
Simula, TCL, etc. 

KNOWLEDGE MEDIA Inc. 

436 Nunneley, Suite B, Paradise, CA 95969 USA 
1-BOO-78 CD ROM - VISA/MC/COD 
+1-916-872-3826 Volce/FAX 
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Architect for Windows 


Windows installation disks for your applications 
are only one mouse click away. No scripts or file 
lists! No programming! 

Architect™ does all the work. 

Standard Features: 

Creates install disks automatically 
Creates complete directory trees 
Copies normal and compressed files 
Builds program groups and items 
Progress Indicators 

Standard Edition: $ 49.95 

Professional Edition: $ 129.95 

(plus $6.00 S&H) _ 


Synapsys 

Software 

Tii * 303-220-9022 
8400 East Prentice, Penthouse 
Englewood, Colorado 80111 
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Export Your 
Software Now 


Let us help you increase your export 
sales! Octagon develops foreign markets 
for small and medium size software 
publishers, including start-ups. 

>- Quickly penetrate new markets 
>■ Conserve scarce internal resources 
>■ Find the best distributors and 
republishers for your products 
»- All fees based on your success 



Suite 102, 3020 Pickett Rd, #759 
Durham, NC 27705 
Tel: 919-493-1651 Fax:919493-1915 
E-Mail: LMELNICK@DELPHI.COM 
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Macro 


Language 

"To Go 

n 


Easily add Netlogic’s full featured 
macro language facility to your 
Windows application — at a fraction of 
the time and cost of developing it your¬ 
self. Seamless integration. Full basic 
syntax. Integrated editor and debug¬ 
ger. Extendable and modifiable. For 
more information: Netlogic Inc., 915 
Broadway, New York, NY 10010. 
Phone 800-638-0048. Fax 212-533-9524 

Pro Macro ™ 

Your Application’s Shortcut to Power 
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Phone Sound: Simple! 

For Windows/DOS Voice Mail & Fax Developers 


Professional 
Tools for 
your Voice 
Mail, Fax & 
Audiotex 
Applications 


1. Create fantastic prompts Multimedia Wave (16, 8 & 

and save time with MS ADPCM), linear 16 & 

VFEdit®\ Record, crop, cut, unsigned 8, plus Dialogic 4 
copy, paste, mix, fade, echo, & 8 at any sample rate! 
volume & more with your 4. Scribe Transcription 
Dialogic™ D4x/12x boards. f/nv/fy for DOS plays digital 

2. Add Voice Mail power to audio files in the background 

your MS Windows apps with without voice mail hardware! 
TI/F DLL ™ our Tel I/F 5. Add Text-to-Speech 
Dynamic Link Library capability to your apps with 

3. Audio ToolBox ™ VoxFonts ™, our "software 

converts to and from _ only" text-to-speech library! 


Order Now: 1-800-234-VISI 


[ Voice Information Systems: 24 N Merion Ave, Bryn Mawr, Pa 19010 I 
Tel: 215-747-5035/BBS 215-747-5062/ Fax: 1-800-234-FXIT 
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I Does your company 

provide tools, products, 
or services for advanced 
Windows programmers? 
Then reach over 21,000 
serious programmers in: 

Windowjf/POS 

□ DEVELOPER'S JOURNAL 

Call 913 - 841-1631 today for 
information about 
advertising opportunities in 
Windows/DOS Developer’s Journal. 

Advanced. Serious. 
Technical. 


I Brian Osborn - Continental Europe. 

+49 431-396895 

I Ed • East I Christine - Midwest I Edwin - West 
913 - 841-1622 1913 - 841-6733 1913 - 841-1626 


NETWORK 

CONTROL 

LIBRARIES 

NETBIOS ROUTINES allows ac¬ 
cess to low-level network func¬ 
tions. Name, session, and 
datagram routines. Wait and no¬ 
wait options. $99 

NETBIOS DLL for Windows $199 

NETWORK MASTER provides 
access to Netware internal func¬ 
tions. Complete network control 
from your compiled programs! $99 

Starlight Software 

P.O. Box 1090 
Wheeling, IL 60090 

(708) 394-0622 _ 
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C and C++ DOCUMENTATION 


! AUTOMATED DOCUMENTATION ! 

• C-CALL ($69) Graphic-tree of caller/called 
functions, cross-ref, file/function index. 

• C-CMT ($69) Creates/inserts/updates 
comment-blocks for each function, listing 
the functions and identifiers used by it. 

• C-METRIC ($59) Counts path complexity, 
counts comments, code, ’C’ statements. 

• C-LIST ($69) Lists and action-diagrams, 
or reformats into standard formats. 

• C-REF ($59) Creates cross-reference of 
local/global/define/parameter identifiers. 

• SP E CI A L: C-DOC ($199) All 5 programs 
integrated as DOS program (<15,000 lines) 

• NEW! C-DOC Professional ($299) 

DOS, OS/2, Windows. 3-rina binder/case. 
Processes 150,000 lines, deferred reports. 

• 30-DAY Money-back guarantee CALL NOW 


1 SOFTWARE BLACKSMITH 

1 6064 St Ives Way, Mississa 
I ONT, Canada Voice/Fax j 
1 L5N-4M1 Demos/BBS I 

SINC. 

uga 

J 



see AD INDEX for our larger ad 
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Attention Oracle Developers 


stioci.dll 


This C++ DLL will simplify and 
speed up the development of 
your C++ Windows programs for 
Oracle client/server applications. 

Requires ORACLE OCI interface. 

Enhanced version with highly 
useful debugging methods using 
Protoview interface included at 
no additional cost. 

Many examples provided with 
documentation. Includes source. 
Departmental license with no 
royalties. 

$60 

CT I nr' 32985 Hamilton Ct. S-lll 
Ol II I'—' Farmington Hills, Ml 48334 
313-488-0357 
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JOBS 

PM 
Mac 
Oracle 
Progress 
Windows NT 
Smalltalk 
Case 
OS/2 

Our midwest Clients are using 
Leading edge technology you thought 
you'd only see on the coasts. Discover the 
heartland, our quality of life and our 
commitment to technology. 

Employer Paid fees only. 

All recruiters are certified by the NAPC. 

Brad Moore, C.P.C. 

266 N. 115th Street, Suite 1. Omaha, NE 68154-2521 
(402) 334-7255 Fax (402) 334-7148 
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EXAmmATOR 

Simulation of the Microsoff Windows™ Certified Professional Examinations 


Enhance your value to clients, peers and employers 
using Examinator, an interactive Windows 3.1 pro¬ 
gram that helps you prepare for and pass the Micro¬ 
soft Windows certification exams given at authorized 
testing centers worldwide. 

• Four complete simulated exams 

• Exam registration instructions and study outlines 

Benefits of this credential include a license to use 
the Microsoft Windows logo, a wall certificate, 
membership card, MCP directory listing and more! 
®89 + ®4 S&h To order, call (615) 327-1858 
VISA/MC/Check/MO/COD fax (615) 320-6594 



Transcender” 

□ept. D Corporation 

242 Louise Ave. 

Nashville. TN 37203 
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They’re all here. All the tools, tips and techniques you need 
to send your OS/2® development rocketing up the charts. 
Brought to you by the original artists: IBM’s own OS/2 develop¬ 
ment team. 

Join The Developer Connection for OS/27 
and you’ll receive the most timely and extensive 
information available to the OS/2 community. 
Four times a year, you’ll get a CD packed with the 
productivity tools, utilities and sample programs 
from IBM and others. A powerful browser and easy, 
user interface let you locate any topic instantly in our com¬ 
prehensive technical library. 

Each CD includes the latest releases of smashes like 
“The Developer’s Toolkit for OS/2,” “Multimedia Presenta¬ 
tion Manager/2 Toolkit,” and “Pen for OS/2 
Toolkit.” Plus, you also get pre-release 
versions of many IBM products, operating sys¬ 
tems, internal development tools, product demos, 
bit maps—you name it. 

But wait, there’s more. You also receive 


TUEDKVIiUfl'KH 

CONNECTION 

NEWS 


The Developer Connection News, our newsletter filled with 
information about the latest OS/2 developments, new products, 
a Q&A column and much more. Plus, you get access to the Developer 
Connection forum on CompuServe^* where you can talk directly to 
the experts. 

And here’s music to your ears: Buy a year’s subscription to The 
Developer Connection for OS/2 
before November 30,1993 and pay 
only $149—a savings of $50 off the 
regular rate. Call 1 800 6DEVCON 
today, and start producing some 
hits of your own. 


Buy a year’s subscription to The 

hits. 


Operate at a higher levels 


•CompuServe membership is required. IBM and OS/2 are registered trademarks and The Developer Connection for OS/2 
and “Operate at a higher level” are trademarks of International Business Machines Corporation. CompuServe is a 
trademark of CompuServe Incorporated. ©1993 IBM Corp. 






























AVOID EMBARRASSMENT! 



“A customer found a bug in 
our software with a tool 
called BOUNDS-CHECKER ... 

Why aren't we using 

BOUNDS-CHECKER?” 


I 


Use BOUNDS-CHECKER ™V2.0 For Windows , The Automatic Bug Finder! 

Whether you're the boss, the QA Manager orthe programmer, it's your responsibility to ensure that 
your company's Windows programs are "bug-free" before they get into the hands of customers. 
If you're developing under C or C++, producing a "bug-free" Windows product is no longer a long 
and stressful experience. 


Announcing BOUNDS-CHECKER V2.0 For 
Windows, the software developer's "safety-net". 

Quickly and easily eliminate the hardest-to-find 
Windows errors that can take days - even weeks 
to find like: 

• API Parameter Errors 

• API Return Value Errors 

• Data and Heap Corruption 

• Resource Leakage Problems 

• Memory Leakage Problems 

• Processor Faults 

HOW IT WORKS - BOUNDS-CHECKER works by 
transparently setting hundreds of breakpoints within 
your program to monitor its behavior. When a bug 
is detected. BOUNDS-CHECKER immediately stops 
your program and pops up showing the problem. 

You can then inspect your program's source, vari¬ 
ables, stack and heap ... with BOUNDS-CHECKER's 
powerful display windows. 

EVENTLOGGING - BOUNDS-CHECKER nowlogs 
all Windows events. Many Windows bugs are diffi¬ 
cult to find because of the event driven, multi-tasking, mes¬ 
sage based nature of Windows. BOUNDS-CHECKER V2.0 For 
Windows introduces an event logging and display capability 
that captures all Windows messages, API calls, API returns 
and other events, The information is displayed in a high-level 
overview that lets you see how your program is interacting 
with Windows. When you want to see more detail, simply click 
to see a section expanded in great detail. 

EASY TO USE — Unlike other debugging tools, there's no 
learning curve with BOUNDS-CHECKER. Simply select your 
program's name from BOUNDS-CHECKER's menu; all the rest 
is automatic. There is nothing to link-in and no macros to 
compile into your program. All this plus the functionality of a 
heap checker, super spy utility, debug kernel, API debugger, 
and a post mortem tool into a single comprehensive auto¬ 
matic bug finder. 



BOUNDS-CHECKER Trapping a Parameter Validation Error 



For even greater debugging power get the 
Nu-Mega Power Pack! The Power Pack 
combines BOUNDS-CHECKER and Soft-ICE 
for Dos and Windows all bundled at great 
savings that put you in total control of both 
environments. And to make things even 
better you save pver $400 and it comes in 
the great carrying case shown here. 

Call Today 


Call now for overnight delivery. 

BOUNDS-CHECKER V2.0 For Windows... Only $249 
BOUNDS-CHECKER For MS DOS... $ 199 
Order both versions & SAVE $150... Only $298 


BOUNDS CHECKER. SOFT-ICE. AND NU-MEGA TECHNOLOGIES are trademarks owned by Nu-Mega Technologies, Inc. All other trademarks are owned by their respective owners. 


Con (603) 889-2386 
fax (603) 889-1135 
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